home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 46.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '0 GOTO100
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 47 4f 54 4f 31 30 | 30 0a 31 20 43 4c 4f 53 |0 GOTO10|0.1 CLOS|
|00000010| 45 34 3a 43 4c 4f 53 45 | 33 3a 43 4c 4f 53 45 32 |E4:CLOSE|3:CLOSE2|
|00000020| 3a 43 4c 4f 53 45 31 3a | 52 45 54 55 52 4e 0a 32 |:CLOSE1:|RETURN.2|
|00000030| 20 47 4f 54 4f 33 34 33 | 0a 33 20 47 4f 54 4f 37 | GOTO343|.3 GOTO7|
|00000040| 37 30 0a 34 20 47 4f 54 | 4f 32 35 30 0a 35 20 47 |70.4 GOT|O250.5 G|
|00000050| 4f 53 55 42 32 3a 47 4f | 54 4f 33 0a 36 20 49 24 |OSUB2:GO|TO3.6 I$|
|00000060| 3d 22 20 22 2b 49 24 3a | 53 59 53 34 39 31 38 32 |=" "+I$:|SYS49182|
|00000070| 2c 49 24 3a 49 24 3d 4d | 49 44 24 28 49 24 2c 32 |,I$:I$=M|ID$(I$,2|
|00000080| 29 3a 52 45 54 55 52 4e | 0a 37 20 41 24 3d 41 24 |):RETURN|.7 A$=A$|
|00000090| 2b 22 20 3e 20 03 22 3a | 47 4f 54 4f 31 33 0a 38 |+" > .":|GOTO13.8|
|000000a0| 20 41 24 3d 22 02 03 22 | 3a 47 4f 54 4f 32 0a 39 | A$=".."|:GOTO2.9|
|000000b0| 20 41 24 3d 52 24 2b 41 | 24 3a 47 4f 54 4f 32 0a | A$=R$+A|$:GOTO2.|
|000000c0| 31 30 20 46 4f 52 49 3d | 31 54 4f 42 3a 47 45 54 |10 FORI=|1TOB:GET|
|000000d0| 23 35 2c 42 24 3a 4e 45 | 58 54 3a 52 45 54 55 52 |#5,B$:NE|XT:RETUR|
|000000e0| 4e 0a 31 31 20 50 52 49 | 4e 54 23 31 2c 4d 24 43 |N.11 PRI|NT#1,M$C|
|000000f0| 48 52 24 28 47 29 43 48 | 52 24 28 48 29 59 24 3a |HR$(G)CH|R$(H)Y$:|
|00000100| 49 4e 50 55 54 23 31 2c | 43 31 2c 43 31 24 2c 43 |INPUT#1,|C1,C1$,C|
|00000110| 31 2c 43 31 3a 52 45 54 | 55 52 4e 0a 31 32 20 41 |1,C1:RET|URN.12 A|
|00000120| 24 3d 52 24 2b 41 24 3a | 47 4f 54 4f 35 0a 31 33 |$=R$+A$:|GOTO5.13|
|00000130| 20 47 4f 53 55 42 32 3a | 47 4f 54 4f 34 0a 31 34 | GOSUB2:|GOTO4.14|
|00000140| 20 53 59 53 34 39 31 37 | 39 2c 41 24 3a 52 45 54 | SYS4917|9,A$:RET|
|00000150| 55 52 4e 0a 31 35 20 47 | 4f 54 4f 32 32 35 30 0a |URN.15 G|OTO2250.|
|00000160| 31 36 20 47 4f 53 55 42 | 31 3a 47 4f 54 4f 33 0a |16 GOSUB|1:GOTO3.|
|00000170| 31 37 20 47 4f 54 4f 32 | 32 34 30 0a 31 38 20 50 |17 GOTO2|240.18 P|
|00000180| 4f 4b 45 36 39 33 2c 2e | 3a 50 4f 4b 45 36 38 35 |OKE693,.|:POKE685|
|00000190| 2c 2e 3a 52 45 54 55 52 | 4e 0a 31 39 20 47 4f 53 |,.:RETUR|N.19 GOS|
|000001a0| 55 42 32 0a 32 30 20 47 | 4f 54 4f 31 32 36 30 0a |UB2.20 G|OTO1260.|
|000001b0| 32 31 20 53 3d 35 34 32 | 37 32 3a 50 4f 4b 45 53 |21 S=542|72:POKES|
|000001c0| 2b 34 2c 36 34 3a 50 4f | 4b 45 53 2b 33 2c 39 3a |+4,64:PO|KES+3,9:|
|000001d0| 50 4f 4b 45 53 2b 31 2c | 38 3a 50 4f 4b 45 53 2b |POKES+1,|8:POKES+|
|000001e0| 35 2c 31 32 3a 50 4f 4b | 45 53 2b 36 2c 31 35 3a |5,12:POK|ES+6,15:|
|000001f0| 50 4f 4b 45 53 2b 34 2c | 36 35 3a 52 45 54 55 52 |POKES+4,|65:RETUR|
|00000200| 4e 0a 32 32 20 47 4f 54 | 4f 35 34 32 30 30 0a 32 |N.22 GOT|O54200.2|
|00000210| 33 20 41 24 3d 22 20 cd | 53 47 20 23 20 20 d3 55 |3 A$=" .|SG # .U|
|00000220| 42 4a 45 43 54 02 22 3a | 47 4f 54 4f 39 0a 32 34 |BJECT.":|GOTO9.24|
|00000230| 20 41 24 3d 52 24 2b 41 | 24 3a 47 4f 54 4f 37 0a | A$=R$+A|$:GOTO7.|
|00000240| 32 35 20 47 4f 53 55 42 | 31 3a 4f 50 45 4e 31 2c |25 GOSUB|1:OPEN1,|
|00000250| 38 2c 31 35 3a 46 24 3d | 22 30 3a 55 53 45 52 20 |8,15:F$=|"0:USER |
|00000260| 4c 4f 47 22 3a 4f 50 45 | 4e 32 2c 38 2c 32 2c 46 |LOG":OPE|N2,8,2,F|
|00000270| 24 2b 22 2c 53 2c 41 22 | 3a 52 45 54 55 52 4e 0a |$+",S,A"|:RETURN.|
|00000280| 32 36 20 47 4f 53 55 42 | 31 33 3a 47 4f 54 4f 36 |26 GOSUB|13:GOTO6|
|00000290| 0a 32 37 20 46 4f 52 58 | 3d 31 54 4f 46 57 2d 43 |.27 FORX|=1TOFW-C|
|000002a0| 46 3a 41 24 3d 22 1b 5b | 31 c1 1b 5b cb 03 22 3a |F:A$=".[|1..[..":|
|000002b0| 53 59 53 34 39 32 30 33 | 2c 41 24 3a 4e 45 58 54 |SYS49203|,A$:NEXT|
|000002c0| 3a 41 24 3d 41 53 24 3a | 46 43 3d 43 46 3a 52 45 |:A$=AS$:|FC=CF:RE|
|000002d0| 54 55 52 4e 0a 32 38 20 | 46 4f 52 58 3d 31 54 4f |TURN.28 |FORX=1TO|
|000002e0| 4c 45 4e 28 41 24 29 0a | 32 39 20 49 46 4d 49 44 |LEN(A$).|29 IFMID|
|000002f0| 24 28 41 24 2c 58 2c 31 | 29 3d 22 5f 22 54 48 45 |$(A$,X,1|)="_"THE|
|00000300| 4e 50 52 49 4e 54 22 20 | 9d 22 3a 53 59 53 34 39 |NPRINT" |.":SYS49|
|00000310| 32 35 34 3a 4e 45 58 54 | 3a 52 45 54 55 52 4e 0a |254:NEXT|:RETURN.|
|00000320| 33 30 20 50 52 49 4e 54 | 4d 49 44 24 28 41 24 2c |30 PRINT|MID$(A$,|
|00000330| 58 2c 31 29 3b 3a 50 4f | 4b 45 32 31 32 2c 2e 3a |X,1);:PO|KE212,.:|
|00000340| 53 59 53 34 39 32 35 34 | 3a 4e 45 58 54 3a 53 59 |SYS49254|:NEXT:SY|
|00000350| 53 34 39 32 33 39 3a 52 | 45 54 55 52 4e 0a 33 31 |S49239:R|ETURN.31|
|00000360| 20 56 4b 24 3d 22 d9 ce | 00 0a 33 32 20 47 4f 53 | VK$="..|..32 GOS|
|00000370| 55 42 36 38 3a 49 24 3d | 22 20 22 2b 22 22 3a 50 |UB68:I$=|" "+"":P|
|00000380| 4f 4b 45 37 30 33 2c 2e | 3a 53 59 53 34 39 32 32 |OKE703,.|:SYS4922|
|00000390| 31 2c 49 24 3a 44 3d 2d | 31 3a 49 46 50 45 45 4b |1,I$:D=-|1:IFPEEK|
|000003a0| 28 37 30 33 29 54 48 45 | 4e 49 24 3d 22 22 3a 5a |(703)THE|NI$="":Z|
|000003b0| 3d 31 3a 52 45 54 55 52 | 4e 0a 33 33 20 47 4f 53 |=1:RETUR|N.33 GOS|
|000003c0| 55 42 36 3a 49 46 56 4b | 24 3c 3e 22 d9 ce 22 54 |UB6:IFVK|$<>".."T|
|000003d0| 48 45 4e 52 45 54 55 52 | 4e 0a 33 34 20 49 46 28 |HENRETUR|N.34 IF(|
|000003e0| 28 46 43 3d 46 57 41 4e | 44 46 57 29 4f 52 47 42 |(FC=FWAN|DFW)ORGB|
|000003f0| 3d 31 29 41 4e 44 28 49 | 24 3d 52 24 4f 52 49 24 |=1)AND(I|$=R$ORI$|
|00000400| 3d 22 d9 22 4f 52 49 24 | 3d 22 ce 22 29 54 48 45 |="."ORI$|=".")THE|
|00000410| 4e 52 45 54 55 52 4e 0a | 33 35 20 49 46 49 24 3d |NRETURN.|35 IFI$=|
|00000420| 52 24 4f 52 49 24 3d 22 | d9 22 54 48 45 4e 44 3d |R$ORI$="|."THEND=|
|00000430| 31 3a 41 24 3d 22 d9 45 | 53 22 3a 47 4f 54 4f 32 |1:A$=".E|S":GOTO2|
|00000440| 0a 33 36 20 49 46 49 24 | 3d 22 ce 22 54 48 45 4e |.36 IFI$|="."THEN|
|00000450| 44 3d 2e 3a 41 24 3d 22 | ce 4f 22 3a 47 4f 54 4f |D=.:A$="|.O":GOTO|
|00000460| 32 0a 33 37 20 47 4f 54 | 4f 33 32 0a 33 38 20 4b |2.37 GOT|O32.38 K|
|00000470| 39 24 3d 4d 49 44 24 28 | 22 ca 41 4e c6 45 42 cd |9$=MID$(|".AN.EB.|
|00000480| 41 52 c1 50 52 cd 41 59 | ca 55 4e ca 55 4c c1 55 |AR.PR.AY|.UN.UL.U|
|00000490| 47 d3 45 50 cf 43 54 ce | 4f 56 c4 45 43 22 2c 28 |G.EP.CT.|OV.EC",(|
|000004a0| 56 41 4c 28 4d 49 44 24 | 28 4b 24 2c 33 2c 32 29 |VAL(MID$|(K$,3,2)|
|000004b0| 29 2d 31 29 2a 33 2b 31 | 2c 33 29 0a 33 39 20 4b |)-1)*3+1|,3).39 K|
|000004c0| 24 3d 4c 45 46 54 24 28 | 4b 24 2c 32 29 2b 22 2d |$=LEFT$(|K$,2)+"-|
|000004d0| 22 2b 4b 39 24 2b 22 2d | 22 2b 52 49 47 48 54 24 |"+K9$+"-|"+RIGHT$|
|000004e0| 28 4b 24 2c 32 29 3a 52 | 45 54 55 52 4e 0a 34 30 |(K$,2):R|ETURN.40|
|000004f0| 20 4f 4e 2d 28 4a 33 3c | 2e 29 47 4f 54 4f 31 32 | ON-(J3<|.)GOTO12|
|00000500| 36 30 3a 41 24 3d 52 24 | 2b 43 4f 24 28 2e 29 2b |60:A$=R$|+CO$(.)+|
|00000510| 22 cf 55 54 20 4f 46 20 | d2 41 4e 47 45 1b 5b 30 |".UT OF |.ANGE.[0|
|00000520| 4d 02 03 22 3a 47 4f 54 | 4f 31 39 0a 34 31 20 43 |M..":GOT|O19.41 C|
|00000530| 4c 4f 53 45 31 3a 4f 50 | 45 4e 31 2c 38 2c 31 35 |LOSE1:OP|EN1,8,15|
|00000540| 3a 52 45 54 55 52 4e 0a | 34 32 20 49 46 28 50 45 |:RETURN.|42 IF(PE|
|00000550| 45 4b 28 4d 50 29 41 4e | 44 31 36 29 3c 3e 43 50 |EK(MP)AN|D16)<>CP|
|00000560| 41 4e 44 4c 53 3d 2e 54 | 48 45 4e 5a 3d 31 0a 34 |ANDLS=.T|HENZ=1.4|
|00000570| 33 20 52 45 54 55 52 4e | 0a 35 39 20 50 4f 4b 45 |3 RETURN|.59 POKE|
|00000580| 32 35 33 2c 2e 3a 50 4f | 4b 45 32 35 34 2c 32 32 |253,.:PO|KE254,22|
|00000590| 34 3a 47 4f 54 4f 31 38 | 0a 36 30 20 54 46 3d 2e |4:GOTO18|.60 TF=.|
|000005a0| 3a 47 45 54 48 34 24 3a | 47 45 54 23 35 2c 41 24 |:GETH4$:|GET#5,A$|
|000005b0| 3a 49 46 41 24 3d 22 10 | 22 4f 52 41 24 3d 22 03 |:IFA$=".|"ORA$=".|
|000005c0| 22 4f 52 48 34 24 3d 22 | 10 22 4f 52 48 34 24 3d |"ORH4$="|."ORH4$=|
|000005d0| 43 48 52 24 28 31 33 31 | 29 54 48 45 4e 54 46 3d |CHR$(131|)THENTF=|
|000005e0| 31 0a 36 31 20 52 45 54 | 55 52 4e 0a 36 32 20 49 |1.61 RET|URN.62 I|
|000005f0| 46 49 3e 2e 54 48 45 4e | 49 3d 4e 2d 52 2b 49 0a |FI>.THEN|I=N-R+I.|
|00000600| 36 33 20 52 45 54 55 52 | 4e 0a 36 34 20 41 53 24 |63 RETUR|N.64 AS$|
|00000610| 3d 41 24 3a 41 24 3d 22 | 3c 22 2b 43 4f 24 28 31 |=A$:A$="|<"+CO$(1|
|00000620| 29 2b 22 cd 4f 52 45 3f | 22 2b 43 4f 24 28 32 29 |)+".ORE?|"+CO$(2)|
|00000630| 2b 22 3e 03 22 3a 47 4f | 53 55 42 32 3a 47 4f 53 |+">.":GO|SUB2:GOS|
|00000640| 55 42 33 31 3a 41 24 3d | 22 22 0a 36 35 20 46 4f |UB31:A$=|"".65 FO|
|00000650| 52 58 3d 31 54 4f 37 3a | 41 24 3d 41 24 2b 43 48 |RX=1TO7:|A$=A$+CH|
|00000660| 52 24 28 32 30 29 3a 4e | 45 58 54 3a 41 24 3d 41 |R$(20):N|EXT:A$=A|
|00000670| 24 2b 22 03 22 3a 46 43 | 3d 2e 3a 47 4f 53 55 42 |$+".":FC|=.:GOSUB|
|00000680| 32 3a 41 24 3d 41 53 24 | 3a 52 45 54 55 52 4e 0a |2:A$=AS$|:RETURN.|
|00000690| 36 36 20 44 31 3d 50 45 | 45 4b 28 39 39 39 29 3a |66 D1=PE|EK(999):|
|000006a0| 44 32 3d 50 45 45 4b 28 | 31 45 33 29 3a 41 3d 44 |D2=PEEK(|1E3):A=D|
|000006b0| 31 3a 47 4f 53 55 42 37 | 38 3a 44 59 24 3d 41 24 |1:GOSUB7|8:DY$=A$|
|000006c0| 3a 41 3d 44 32 3a 47 4f | 53 55 42 37 38 3a 5a 24 |:A=D2:GO|SUB78:Z$|
|000006d0| 3d 41 24 0a 36 37 20 59 | 52 3d 50 45 45 4b 28 31 |=A$.67 Y|R=PEEK(1|
|000006e0| 30 30 31 29 2b 50 45 45 | 4b 28 31 30 30 32 29 2a |001)+PEE|K(1002)*|
|000006f0| 43 3a 59 52 24 3d 4d 49 | 44 24 28 53 54 52 24 28 |C:YR$=MI|D$(STR$(|
|00000700| 59 52 29 2c 32 29 3a 44 | 24 3d 44 59 24 2b 5a 24 |YR),2):D|$=DY$+Z$|
|00000710| 2b 52 49 47 48 54 24 28 | 59 52 24 2c 32 29 3a 52 |+RIGHT$(|YR$,2):R|
|00000720| 45 54 55 52 4e 0a 36 38 | 20 54 32 3d 54 49 2b 57 |ETURN.68| T2=TI+W|
|00000730| 54 3a 49 46 54 32 3e 54 | 2d 31 54 48 45 4e 54 32 |T:IFT2>T|-1THENT2|
|00000740| 3d 54 32 2d 54 0a 36 39 | 20 54 32 3d 54 32 2d 49 |=T2-T.69| T2=T2-I|
|00000750| 4e 54 28 54 32 2f 36 30 | 5e 33 29 2a 36 30 5e 33 |NT(T2/60|^3)*60^3|
|00000760| 3a 4d 35 3d 49 4e 54 28 | 54 32 2f 36 30 5e 32 29 |:M5=INT(|T2/60^2)|
|00000770| 3a 4d 35 24 3d 4d 49 44 | 24 28 53 54 52 24 28 4d |:M5$=MID|$(STR$(M|
|00000780| 35 29 2c 32 29 0a 37 30 | 20 4d 35 3d 2e 3a 49 46 |5),2).70| M5=.:IF|
|00000790| 4c 45 4e 28 4d 35 24 29 | 3e 31 54 48 45 4e 4d 35 |LEN(M5$)|>1THENM5|
|000007a0| 3d 31 36 2a 56 41 4c 28 | 4c 45 46 54 24 28 4d 35 |=16*VAL(|LEFT$(M5|
|000007b0| 24 2c 31 29 29 0a 37 31 | 20 4d 4d 3d 56 41 4c 28 |$,1)).71| MM=VAL(|
|000007c0| 52 49 47 48 54 24 28 4d | 35 24 2c 31 29 29 3a 4d |RIGHT$(M|5$,1)):M|
|000007d0| 35 3d 4d 35 2b 4d 4d 3a | 50 4f 4b 45 37 30 32 2c |5=M5+MM:|POKE702,|
|000007e0| 4d 35 3a 52 45 54 55 52 | 4e 0a 37 32 20 48 3d 49 |M5:RETUR|N.72 H=I|
|000007f0| 4e 54 28 58 2f 43 29 3a | 47 3d 58 2d 48 2a 43 3a |NT(X/C):|G=X-H*C:|
|00000800| 52 45 54 55 52 4e 0a 37 | 33 20 47 4f 53 55 42 31 |RETURN.7|3 GOSUB1|
|00000810| 3a 4f 50 45 4e 31 2c 38 | 2c 31 35 3a 4f 50 45 4e |:OPEN1,8|,15:OPEN|
|00000820| 33 2c 38 2c 33 2c 22 30 | 3a cd 45 53 53 41 47 45 |3,8,3,"0|:.ESSAGE|
|00000830| 53 22 2b 47 4d 24 3a 52 | 45 54 55 52 4e 0a 37 34 |S"+GM$:R|ETURN.74|
|00000840| 20 47 4f 53 55 42 31 3a | 4f 50 45 4e 31 2c 38 2c | GOSUB1:|OPEN1,8,|
|00000850| 31 35 3a 4f 50 45 4e 33 | 2c 38 2c 33 2c 46 52 24 |15:OPEN3|,8,3,FR$|
|00000860| 3a 52 45 54 55 52 4e 0a | 37 35 20 46 31 3d 31 3a |:RETURN.|75 F1=1:|
|00000870| 47 4f 54 4f 36 32 30 30 | 0a 37 36 20 48 3d 49 4e |GOTO6200|.76 H=IN|
|00000880| 54 28 58 2f 43 29 3a 47 | 3d 49 4e 54 28 58 2d 48 |T(X/C):G|=INT(X-H|
|00000890| 2a 43 29 3a 52 45 54 55 | 52 4e 0a 37 38 20 41 24 |*C):RETU|RN.78 A$|
|000008a0| 3d 4d 49 44 24 28 53 54 | 52 24 28 41 29 2c 32 29 |=MID$(ST|R$(A),2)|
|000008b0| 3a 49 46 4c 45 4e 28 41 | 24 29 3d 31 54 48 45 4e |:IFLEN(A|$)=1THEN|
|000008c0| 41 24 3d 22 30 22 2b 41 | 24 0a 37 39 20 52 45 54 |A$="0"+A|$.79 RET|
|000008d0| 55 52 4e 0a 38 30 20 53 | 59 53 34 39 32 32 34 3a |URN.80 S|YS49224:|
|000008e0| 42 24 3d 22 22 3a 46 4f | 52 58 3d 31 30 39 34 54 |B$="":FO|RX=1094T|
|000008f0| 4f 31 31 30 31 3a 42 24 | 3d 42 24 2b 43 48 52 24 |O1101:B$|=B$+CHR$|
|00000900| 28 50 45 45 4b 28 58 29 | 29 3a 4e 45 58 54 3a 53 |(PEEK(X)|):NEXT:S|
|00000910| 59 53 34 39 32 33 30 3a | 52 45 54 55 52 4e 0a 38 |YS49230:|RETURN.8|
|00000920| 31 20 45 24 3d 4c 45 46 | 54 24 28 54 49 24 2c 34 |1 E$=LEF|T$(TI$,4|
|00000930| 29 3a 46 4f 52 58 3d 2e | 54 4f 31 3a 50 4f 4b 45 |):FORX=.|TO1:POKE|
|00000940| 37 31 30 2b 58 2c 56 41 | 4c 28 4d 49 44 24 28 45 |710+X,VA|L(MID$(E|
|00000950| 24 2c 58 2a 32 2b 31 2c | 32 29 29 3a 4e 45 58 54 |$,X*2+1,|2)):NEXT|
|00000960| 3a 52 45 54 55 52 4e 0a | 38 35 20 41 24 3d 58 24 |:RETURN.|85 A$=X$|
|00000970| 2b 22 22 0a 38 36 20 49 | 46 59 3c 4c 54 48 45 4e |+"".86 I|FY<LTHEN|
|00000980| 53 59 53 34 39 31 39 37 | 3a 53 59 53 34 39 32 30 |SYS49197|:SYS4920|
|00000990| 30 2c 41 24 3a 49 46 50 | 45 45 4b 28 36 39 33 29 |0,A$:IFP|EEK(693)|
|000009a0| 3e 2e 54 48 45 4e 59 3d | 2d 31 3a 52 45 54 55 52 |>.THENY=|-1:RETUR|
|000009b0| 4e 0a 38 37 20 49 46 59 | 3c 4c 54 48 45 4e 59 3d |N.87 IFY|<LTHENY=|
|000009c0| 59 2b 31 3a 47 4f 54 4f | 38 36 0a 38 38 20 53 59 |Y+1:GOTO|86.88 SY|
|000009d0| 53 34 39 31 39 37 3a 47 | 4f 54 4f 39 31 0a 39 30 |S49197:G|OTO91.90|
|000009e0| 20 41 24 3d 22 22 3a 53 | 59 53 34 39 31 39 34 3a | A$="":S|YS49194:|
|000009f0| 53 3d 53 54 0a 39 31 20 | 49 46 50 45 45 4b 28 36 |S=ST.91 |IFPEEK(6|
|00000a00| 38 35 29 54 48 45 4e 41 | 24 3d 4c 45 46 54 24 28 |85)THENA|$=LEFT$(|
|00000a10| 58 24 2c 50 45 45 4b 28 | 36 38 35 29 29 2b 22 22 |X$,PEEK(|685))+""|
|00000a20| 3a 53 59 53 34 39 32 30 | 30 2c 41 24 3a 53 59 53 |:SYS4920|0,A$:SYS|
|00000a30| 34 39 32 33 39 0a 39 32 | 20 52 45 54 55 52 4e 0a |49239.92| RETURN.|
|00000a40| 39 33 20 46 4f 52 58 3d | 35 36 35 38 37 54 4f 35 |93 FORX=|56587TO5|
|00000a50| 36 35 38 34 53 54 45 50 | 2d 31 3a 50 4f 4b 45 58 |6584STEP|-1:POKEX|
|00000a60| 2c 2e 3a 4e 45 58 54 3a | 58 3d 50 45 45 4b 28 35 |,.:NEXT:|X=PEEK(5|
|00000a70| 36 35 38 34 29 3a 52 45 | 54 55 52 4e 0a 39 34 20 |6584):RE|TURN.94 |
|00000a80| 41 24 3d 43 4f 24 28 34 | 29 2b 22 d3 54 41 4e 44 |A$=CO$(4|)+".TAND|
|00000a90| 20 c2 59 1b 5b 30 4d 02 | 03 22 3a 47 4f 54 4f 39 | .Y.[0M.|.":GOTO9|
|00000aa0| 0a 39 35 20 41 24 3d 43 | 4f 24 28 34 29 2b 22 d4 |.95 A$=C|O$(4)+".|
|00000ab0| 49 4d 45 20 cc 49 4d 49 | 54 a0 c5 58 43 45 45 44 |IME .IMI|T..XCEED|
|00000ac0| 45 44 22 3a 47 4f 53 55 | 42 39 3a 47 4f 54 4f 38 |ED":GOSU|B9:GOTO8|
|00000ad0| 36 35 0a 39 36 20 46 43 | 3d 2e 3a 49 46 50 54 48 |65.96 FC|=.:IFPTH|
|00000ae0| 45 4e 52 45 54 55 52 4e | 0a 39 37 20 41 24 3d 43 |ENRETURN|.97 A$=C|
|00000af0| 4f 24 28 35 29 2b 22 20 | 20 20 5b d3 5d 54 4f 50 |O$(5)+" | [.]TOP|
|00000b00| 20 20 20 5b c3 5d 4f 4e | 54 49 4e 55 45 20 20 20 | [.]ON|TINUE |
|00000b10| 5b c1 5d 42 4f 52 54 1b | 5b 30 4d 22 3a 47 4f 54 |[.]BORT.|[0M":GOT|
|00000b20| 4f 39 0a 39 38 20 41 24 | 3d 43 4f 24 28 34 29 2b |O9.98 A$|=CO$(4)+|
|00000b30| 22 c1 43 43 45 53 53 20 | 44 45 4e 49 45 44 21 1b |".CCESS |DENIED!.|
|00000b40| 5b 30 4d 22 3a 47 4f 54 | 4f 31 32 0a 31 30 30 20 |[0M":GOT|O12.100 |
|00000b50| 53 59 53 34 39 32 34 32 | 3a 50 52 49 4e 54 22 93 |SYS49242|:PRINT".|
|00000b60| 11 11 11 09 0e 08 97 22 | 3b 3a 53 59 53 34 39 32 |......."|;:SYS492|
|00000b70| 33 30 3a 50 4f 4b 45 35 | 33 32 38 31 2c 2e 3a 50 |30:POKE5|3281,.:P|
|00000b80| 4f 4b 45 35 33 32 38 30 | 2c 31 31 3a 49 46 50 45 |OKE53280|,11:IFPE|
|00000b90| 45 4b 28 31 30 32 33 29 | 3c 32 35 33 54 48 45 4e |EK(1023)|<253THEN|
|00000ba0| 43 4c 4f 53 45 35 0a 31 | 30 31 20 4f 50 45 4e 35 |CLOSE5.1|01 OPEN5|
|00000bb0| 2c 32 2c 2e 2c 43 48 52 | 24 28 38 29 3a 50 52 49 |,2,.,CHR|$(8):PRI|
|00000bc0| 4e 54 23 35 3a 57 41 49 | 54 31 30 36 34 2c 36 36 |NT#5:WAI|T1064,66|
|00000bd0| 3a 43 3d 32 35 36 3a 42 | 3d 32 35 35 3a 4d 50 3d |:C=256:B|=255:MP=|
|00000be0| 50 45 45 4b 28 37 34 32 | 29 2b 50 45 45 4b 28 37 |PEEK(742|)+PEEK(7|
|00000bf0| 34 33 29 2a 43 0a 31 30 | 32 20 52 24 3d 43 48 52 |43)*C.10|2 R$=CHR|
|00000c00| 24 28 31 33 29 3a 43 50 | 3d 50 45 45 4b 28 37 31 |$(13):CP|=PEEK(71|
|00000c10| 39 29 3a 43 4e 24 3d 22 | c3 4f 4e 4e 45 43 54 22 |9):CN$="|.ONNECT"|
|00000c20| 3a 4d 54 3d 50 45 45 4b | 28 32 30 32 34 29 3a 49 |:MT=PEEK|(2024):I|
|00000c30| 46 4d 54 3d 33 54 48 45 | 4e 31 31 30 0a 31 30 34 |FMT=3THE|N110.104|
|00000c40| 20 49 46 50 45 45 4b 28 | 31 30 32 33 29 3e 32 35 | IFPEEK(|1023)>25|
|00000c50| 32 54 48 45 4e 46 4f 52 | 58 3d 31 30 37 30 54 4f |2THENFOR|X=1070TO|
|00000c60| 31 30 37 33 3a 49 24 3d | 49 24 2b 43 48 52 24 28 |1073:I$=|I$+CHR$(|
|00000c70| 50 45 45 4b 28 58 29 29 | 3a 4e 45 58 54 3a 47 4f |PEEK(X))|:NEXT:GO|
|00000c80| 53 55 42 31 36 32 32 35 | 3a 47 4f 54 4f 31 31 30 |SUB16225|:GOTO110|
|00000c90| 0a 31 30 35 20 49 24 3d | 4d 49 44 24 28 53 54 52 |.105 I$=|MID$(STR|
|00000ca0| 24 28 31 32 30 30 2d 31 | 32 30 30 2a 28 4d 54 3d |$(1200-1|200*(MT=|
|00000cb0| 32 29 29 2c 32 29 3a 47 | 4f 53 55 42 31 36 32 32 |2)),2):G|OSUB1622|
|00000cc0| 35 3a 41 24 3d 22 53 45 | 54 20 55 50 22 3a 47 4f |5:A$="SE|T UP":GO|
|00000cd0| 53 55 42 31 34 0a 31 30 | 37 20 47 45 54 23 35 2c |SUB14.10|7 GET#5,|
|00000ce0| 41 24 3a 49 46 41 24 3e | 22 22 54 48 45 4e 31 30 |A$:IFA$>|""THEN10|
|00000cf0| 37 0a 31 30 38 20 41 24 | 3d 22 1b 1b 1b 22 3a 47 |7.108 A$|="...":G|
|00000d00| 4f 53 55 42 32 32 3a 49 | 46 50 45 45 4b 28 32 30 |OSUB22:I|FPEEK(20|
|00000d10| 32 37 29 3c 3e 42 41 4e | 44 50 45 45 4b 28 37 30 |27)<>BAN|DPEEK(70|
|00000d20| 36 29 3c 3e 42 54 48 45 | 4e 41 24 3d 22 53 30 3d |6)<>BTHE|NA$="S0=|
|00000d30| 31 48 22 3a 47 4f 53 55 | 42 32 32 0a 31 31 30 20 |1H":GOSU|B22.110 |
|00000d40| 44 49 4d 4e 45 24 28 31 | 29 2c 43 4f 24 28 38 29 |DIMNE$(1|),CO$(8)|
|00000d50| 3a 49 46 50 45 45 4b 28 | 32 30 32 37 29 3d 42 41 |:IFPEEK(|2027)=BA|
|00000d60| 4e 44 4d 54 3c 33 54 48 | 45 4e 50 4f 4b 45 32 30 |NDMT<3TH|ENPOKE20|
|00000d70| 32 37 2c 2e 3a 47 4f 53 | 55 42 32 37 32 3a 4b 32 |27,.:GOS|UB272:K2|
|00000d80| 3d 2e 0a 31 31 32 20 52 | 24 3d 43 48 52 24 28 31 |=..112 R|$=CHR$(1|
|00000d90| 33 29 3a 4a 24 3d 22 d3 | d9 d3 cf d0 22 3a 43 24 |3):J$=".|....":C$|
|00000da0| 3d 22 a0 22 3a 57 24 3d | 22 c1 42 4f 52 54 45 44 |=".":W$=|".BORTED|
|00000db0| 22 3a 53 57 24 3d 22 2c | 53 2c 57 22 3a 57 50 24 |":SW$=",|S,W":WP$|
|00000dc0| 3d 22 d0 41 53 53 57 4f | 52 44 00 0a 31 34 30 20 |=".ASSWO|RD..140 |
|00000dd0| 59 24 3d 43 48 52 24 28 | 2e 29 3a 4d 24 3d 22 50 |Y$=CHR$(|.):M$="P|
|00000de0| 22 2b 43 48 52 24 28 39 | 39 29 3a 57 54 3d 31 30 |"+CHR$(9|9):WT=10|
|00000df0| 38 30 30 3a 46 52 24 3d | 22 30 3a d3 59 53 54 45 |800:FR$=|"0:.YSTE|
|00000e00| 4d 20 d5 53 45 52 53 22 | 3a 51 24 3d 43 48 52 24 |M .SERS"|:Q$=CHR$|
|00000e10| 28 33 34 29 3a 4b 32 3d | 31 0a 31 35 35 20 43 4c |(34):K2=|1.155 CL|
|00000e20| 4f 53 45 39 3a 4f 50 45 | 4e 39 2c 38 2c 32 2c 22 |OSE9:OPE|N9,8,2,"|
|00000e30| 30 3a 43 55 53 54 4f 4d | 22 3a 49 4e 50 55 54 23 |0:CUSTOM|":INPUT#|
|00000e40| 39 2c 50 53 24 3a 49 4e | 50 55 54 23 39 2c 41 24 |9,PS$:IN|PUT#9,A$|
|00000e50| 0a 31 35 37 20 4c 46 3d | 56 41 4c 28 41 24 29 3a |.157 LF=|VAL(A$):|
|00000e60| 49 4e 50 55 54 23 39 2c | 44 52 24 3a 44 52 3d 56 |INPUT#9,|DR$:DR=V|
|00000e70| 41 4c 28 44 52 24 29 3a | 49 46 44 52 3d 2d 31 54 |AL(DR$):|IFDR=-1T|
|00000e80| 48 45 4e 31 35 39 0a 31 | 35 38 20 44 49 4d 44 52 |HEN159.1|58 DIMDR|
|00000e90| 24 28 44 52 29 3a 46 4f | 52 58 3d 2e 54 4f 44 52 |$(DR):FO|RX=.TODR|
|00000ea0| 3a 46 4f 52 59 3d 31 54 | 4f 33 3a 49 4e 50 55 54 |:FORY=1T|O3:INPUT|
|00000eb0| 23 39 2c 41 24 3a 4e 45 | 58 54 59 2c 58 0a 31 35 |#9,A$:NE|XTY,X.15|
|00000ec0| 39 20 49 4e 50 55 54 23 | 39 2c 4d 47 24 3a 4d 47 |9 INPUT#|9,MG$:MG|
|00000ed0| 3d 56 41 4c 28 4d 47 24 | 29 3a 44 49 4d 4d 47 24 |=VAL(MG$|):DIMMG$|
|00000ee0| 28 33 2c 4d 47 29 2c 4d | 47 28 4d 47 29 3a 46 4f |(3,MG),M|G(MG):FO|
|00000ef0| 52 58 3d 2e 54 4f 4d 47 | 3a 46 4f 52 59 3d 2e 54 |RX=.TOMG|:FORY=.T|
|00000f00| 4f 33 3a 49 4e 50 55 54 | 23 39 2c 4d 47 24 28 59 |O3:INPUT|#9,MG$(Y|
|00000f10| 2c 58 29 3a 4e 45 58 54 | 59 2c 58 0a 31 36 30 20 |,X):NEXT|Y,X.160 |
|00000f20| 46 4f 52 58 3d 2e 54 4f | 4d 47 3a 4d 47 24 28 31 |FORX=.TO|MG:MG$(1|
|00000f30| 2c 58 29 3d 4d 47 24 28 | 31 2c 58 29 2b 22 3a 22 |,X)=MG$(|1,X)+":"|
|00000f40| 3a 4e 45 58 54 0a 31 36 | 31 20 49 4e 50 55 54 23 |:NEXT.16|1 INPUT#|
|00000f50| 39 2c 4e 43 24 3a 4e 43 | 3d 56 41 4c 28 4e 43 24 |9,NC$:NC|=VAL(NC$|
|00000f60| 29 3a 46 4f 52 58 3d 2e | 54 4f 4e 43 3a 49 4e 50 |):FORX=.|TONC:INP|
|00000f70| 55 54 23 39 2c 43 24 28 | 58 29 3a 4e 45 58 54 3a |UT#9,C$(|X):NEXT:|
|00000f80| 4d 44 3d 56 41 4c 28 4d | 47 24 28 32 2c 2e 29 29 |MD=VAL(M|G$(2,.))|
|00000f90| 0a 31 36 32 20 50 24 3d | 4d 47 24 28 31 2c 2e 29 |.162 P$=|MG$(1,.)|
|00000fa0| 3a 49 4e 50 55 54 23 39 | 2c 41 24 3a 42 44 3d 56 |:INPUT#9|,A$:BD=V|
|00000fb0| 41 4c 28 41 24 29 3a 49 | 4e 50 55 54 23 39 2c 42 |AL(A$):I|NPUT#9,B|
|00000fc0| 44 24 2c 55 4d 24 2c 50 | 47 24 2c 41 24 3a 55 4d |D$,UM$,P|G$,A$:UM|
|00000fd0| 3d 56 41 4c 28 55 4d 24 | 29 3a 55 4d 24 3d 22 22 |=VAL(UM$|):UM$=""|
|00000fe0| 0a 31 36 33 20 4c 44 3d | 56 41 4c 28 41 24 29 3a |.163 LD=|VAL(A$):|
|00000ff0| 49 4e 50 55 54 23 39 2c | 4c 44 24 2c 53 55 24 2c |INPUT#9,|LD$,SU$,|
|00001000| 4e 42 24 2c 41 24 3a 4c | 44 24 3d 4c 44 24 2b 22 |NB$,A$:L|D$=LD$+"|
|00001010| 3a 22 3a 50 47 3d 56 41 | 4c 28 50 47 24 29 3a 50 |:":PG=VA|L(PG$):P|
|00001020| 47 24 3d 22 22 3a 45 5a | 3d 56 41 4c 28 41 24 29 |G$="":EZ|=VAL(A$)|
|00001030| 0a 31 36 34 20 49 4e 50 | 55 54 23 39 2c 43 47 24 |.164 INP|UT#9,CG$|
|00001040| 2c 41 24 2c 4c 4b 24 2c | 41 24 3a 4c 4b 3d 56 41 |,A$,LK$,|A$:LK=VA|
|00001050| 4c 28 4c 4b 24 29 3a 44 | 49 4d 54 42 24 28 56 41 |L(LK$):D|IMTB$(VA|
|00001060| 4c 28 4e 42 24 29 2b 37 | 29 2c 4c 4b 24 28 4c 4b |L(NB$)+7|),LK$(LK|
|00001070| 29 3a 58 3d 2e 3a 4c 4b | 24 3d 22 22 0a 31 36 35 |):X=.:LK|$="".165|
|00001080| 20 49 4e 50 55 54 23 39 | 2c 4c 4b 24 28 58 29 3a | INPUT#9|,LK$(X):|
|00001090| 58 3d 58 2b 31 3a 4f 4e | 2d 28 58 3c 4c 4b 2b 31 |X=X+1:ON|-(X<LK+1|
|000010a0| 29 47 4f 54 4f 31 36 35 | 3a 58 3d 38 0a 31 36 36 |)GOTO165|:X=8.166|
|000010b0| 20 49 4e 50 55 54 23 39 | 2c 54 42 24 28 58 29 3a | INPUT#9|,TB$(X):|
|000010c0| 58 3d 58 2b 31 3a 4f 4e | 2d 28 53 54 3d 2e 29 47 |X=X+1:ON|-(ST=.)G|
|000010d0| 4f 54 4f 31 36 36 3a 43 | 4c 4f 53 45 39 3a 4f 50 |OTO166:C|LOSE9:OP|
|000010e0| 45 4e 39 2c 38 2c 32 2c | 22 30 3a 53 54 41 54 53 |EN9,8,2,|"0:STATS|
|000010f0| 00 0a 31 36 37 20 46 4f | 52 58 3d 2e 54 4f 4d 47 |..167 FO|RX=.TOMG|
|00001100| 3a 49 4e 50 55 54 23 39 | 2c 53 59 24 28 58 29 2c |:INPUT#9|,SY$(X),|
|00001110| 52 34 24 28 58 29 2c 41 | 4c 24 28 58 29 2c 52 46 |R4$(X),A|L$(X),RF|
|00001120| 24 28 58 29 3a 4e 45 58 | 54 3a 49 4e 50 55 54 23 |$(X):NEX|T:INPUT#|
|00001130| 39 2c 55 53 24 2c 4f 4c | 24 2c 59 56 24 2c 46 42 |9,US$,OL|$,YV$,FB|
|00001140| 24 0a 31 36 38 20 49 4e | 50 55 54 23 39 2c 42 46 |$.168 IN|PUT#9,BF|
|00001150| 24 3a 59 56 3d 56 41 4c | 28 59 56 24 29 3a 4f 4e |$:YV=VAL|(YV$):ON|
|00001160| 2d 28 44 52 3d 2d 31 29 | 47 4f 54 4f 31 37 30 3a |-(DR=-1)|GOTO170:|
|00001170| 46 4f 52 58 3d 2e 54 4f | 44 52 3a 49 4e 50 55 54 |FORX=.TO|DR:INPUT|
|00001180| 23 39 2c 44 52 24 28 58 | 29 3a 4e 45 58 54 0a 31 |#9,DR$(X|):NEXT.1|
|00001190| 37 30 20 43 4c 4f 53 45 | 39 3a 4e 3d 56 41 4c 28 |70 CLOSE|9:N=VAL(|
|000011a0| 41 4c 24 28 2e 29 29 3a | 52 3d 56 41 4c 28 52 46 |AL$(.)):|R=VAL(RF|
|000011b0| 24 28 2e 29 29 3a 55 3d | 38 3a 50 4f 4b 45 37 34 |$(.)):U=|8:POKE74|
|000011c0| 34 2c 36 30 3a 43 4a 24 | 3d 22 3c 00 0a 31 38 30 |4,60:CJ$|="<..180|
|000011d0| 20 4d 42 3d 56 41 4c 28 | 4d 47 24 28 33 2c 2e 29 | MB=VAL(|MG$(3,.)|
|000011e0| 29 3a 42 44 24 3d 42 44 | 24 2b 22 3a 22 3a 4e 42 |):BD$=BD|$+":":NB|
|000011f0| 3d 56 41 4c 28 4e 42 24 | 29 3a 4e 42 24 3d 22 22 |=VAL(NB$|):NB$=""|
|00001200| 3a 50 4f 4b 45 37 34 38 | 2c 2e 3a 47 4d 3d 2e 3a |:POKE748|,.:GM=.:|
|00001210| 47 4d 24 3d 22 30 00 0a | 31 38 32 20 4f 50 45 4e |GM$="0..|182 OPEN|
|00001220| 39 2c 38 2c 32 2c 22 30 | 3a 43 4f 4c 4f 55 52 53 |9,8,2,"0|:COLOURS|
|00001230| 22 3a 46 4f 52 58 3d 2e | 54 4f 38 3a 49 4e 50 55 |":FORX=.|TO8:INPU|
|00001240| 54 23 39 2c 41 24 2c 41 | 24 3a 43 4f 24 28 58 29 |T#9,A$,A|$:CO$(X)|
|00001250| 3d 22 1b 5b 22 2b 41 24 | 2b 22 4d 22 3a 4e 45 58 |=".["+A$|+"M":NEX|
|00001260| 54 3a 43 4c 4f 53 45 39 | 0a 31 38 35 20 46 4f 52 |T:CLOSE9|.185 FOR|
|00001270| 58 3d 2e 54 4f 4d 47 3a | 41 24 3d 4d 47 24 28 2e |X=.TOMG:|A$=MG$(.|
|00001280| 2c 58 29 3a 49 46 4c 45 | 46 54 24 28 41 24 2c 31 |,X):IFLE|FT$(A$,1|
|00001290| 29 3d 22 2d 22 54 48 45 | 4e 4d 47 24 28 2e 2c 58 |)="-"THE|NMG$(.,X|
|000012a0| 29 3d 4d 49 44 24 28 41 | 24 2c 32 29 3a 4d 47 28 |)=MID$(A|$,2):MG(|
|000012b0| 58 29 3d 31 0a 31 38 36 | 20 49 46 4c 45 46 54 24 |X)=1.186| IFLEFT$|
|000012c0| 28 41 24 2c 31 29 3d 22 | 2b 22 54 48 45 4e 4d 47 |(A$,1)="|+"THENMG|
|000012d0| 24 28 2e 2c 58 29 3d 4d | 49 44 24 28 41 24 2c 32 |$(.,X)=M|ID$(A$,2|
|000012e0| 29 3a 4d 47 28 58 29 3d | 32 0a 31 39 30 20 4e 45 |):MG(X)=|2.190 NE|
|000012f0| 58 54 3a 50 4f 4b 45 36 | 35 30 2c 31 32 38 3a 50 |XT:POKE6|50,128:P|
|00001300| 50 3d 37 30 39 3a 54 3d | 35 31 38 34 45 33 3a 41 |P=709:T=|5184E3:A|
|00001310| 24 3d 22 20 22 3a 46 4f | 52 58 3d 31 54 4f 37 3a |$=" ":FO|RX=1TO7:|
|00001320| 58 24 3d 58 24 2b 58 24 | 2b 41 24 3a 4e 45 58 54 |X$=X$+X$|+A$:NEXT|
|00001330| 0a 31 39 33 20 58 24 3d | 58 24 2b 58 24 2b 41 24 |.193 X$=|X$+X$+A$|
|00001340| 3a 46 4f 52 58 3d 31 54 | 4f 31 36 3a 53 53 24 3d |:FORX=1T|O16:SS$=|
|00001350| 53 53 24 2b 43 24 3a 4e | 45 58 54 3a 55 53 3d 56 |SS$+C$:N|EXT:US=V|
|00001360| 41 4c 28 55 53 24 29 3a | 4f 4c 3d 56 41 4c 28 4f |AL(US$):|OL=VAL(O|
|00001370| 4c 24 29 3a 4f 50 45 4e | 33 2c 38 2c 33 2c 22 30 |L$):OPEN|3,8,3,"0|
|00001380| 3a 49 4e 44 45 58 00 0a | 31 39 35 20 41 24 3d 58 |:INDEX..|195 A$=X|
|00001390| 24 2b 22 22 3a 53 59 53 | 34 39 32 32 37 2c 41 24 |$+"":SYS|49227,A$|
|000013a0| 3a 41 24 3d 4c 45 46 54 | 24 28 41 24 2c 50 45 45 |:A$=LEFT|$(A$,PEE|
|000013b0| 4b 28 32 30 32 35 29 2d | 31 29 3a 43 4c 4f 53 45 |K(2025)-|1):CLOSE|
|000013c0| 33 3a 50 55 24 3d 41 24 | 0a 31 39 38 20 56 24 3d |3:PU$=A$|.198 V$=|
|000013d0| 52 24 2b 43 4f 24 28 2e | 29 2b 22 c9 4e 56 41 4c |R$+CO$(.|)+".NVAL|
|000013e0| 49 44 20 22 3a 43 24 28 | 37 29 3d 22 d0 52 49 56 |ID ":C$(|7)=".RIV|
|000013f0| 41 54 45 20 cd 45 53 53 | 41 47 45 22 3a 49 46 50 |ATE .ESS|AGE":IFP|
|00001400| 45 45 4b 28 31 30 32 33 | 29 3e 32 35 32 54 48 45 |EEK(1023|)>252THE|
|00001410| 4e 32 33 30 0a 32 30 30 | 20 50 4f 4b 45 36 39 30 |N230.200| POKE690|
|00001420| 2c 50 45 45 4b 28 37 32 | 39 29 3a 50 4f 4b 45 37 |,PEEK(72|9):POKE7|
|00001430| 33 30 2c 2e 3a 41 3d 2e | 3a 46 4f 52 58 3d 2e 54 |30,.:A=.|:FORX=.T|
|00001440| 4f 4d 47 3a 41 3d 41 2b | 56 41 4c 28 53 59 24 28 |OMG:A=A+|VAL(SY$(|
|00001450| 58 29 29 3a 4e 45 58 54 | 0a 32 30 33 20 41 24 3d |X)):NEXT|.203 A$=|
|00001460| 22 5f d3 59 53 2e cd 41 | 49 4c 3a 22 2b 53 54 52 |"_.YS..A|IL:"+STR|
|00001470| 24 28 41 29 3a 47 4f 53 | 55 42 32 38 0a 32 30 34 |$(A):GOS|UB28.204|
|00001480| 20 41 3d 2e 3a 46 4f 52 | 58 3d 2e 54 4f 4d 47 3a | A=.:FOR|X=.TOMG:|
|00001490| 41 3d 41 2b 28 56 41 4c | 28 52 46 24 28 58 29 29 |A=A+(VAL|(RF$(X))|
|000014a0| 2d 28 56 41 4c 28 52 34 | 24 28 58 29 29 2d 31 29 |-(VAL(R4|$(X))-1)|
|000014b0| 29 3a 4e 45 58 54 3a 49 | 46 41 3c 2e 54 48 45 4e |):NEXT:I|FA<.THEN|
|000014c0| 41 3d 2e 0a 32 30 35 20 | 41 24 3d 22 5f d3 59 53 |A=..205 |A$="_.YS|
|000014d0| 2e 20 ce 45 57 3a 22 2b | 53 54 52 24 28 41 29 2b |. .EW:"+|STR$(A)+|
|000014e0| 22 5f 20 20 20 d5 53 45 | 52 53 3a 22 2b 53 54 52 |"_ .SE|RS:"+STR|
|000014f0| 24 28 55 53 29 3a 47 4f | 53 55 42 32 38 0a 32 30 |$(US):GO|SUB28.20|
|00001500| 37 20 41 3d 2e 3a 4a 4d | 3d 2e 3a 46 4f 52 58 3d |7 A=.:JM|=.:FORX=|
|00001510| 2e 54 4f 4d 47 3a 41 3d | 41 2b 56 41 4c 28 41 4c |.TOMG:A=|A+VAL(AL|
|00001520| 24 28 58 29 29 3a 4e 45 | 58 54 0a 32 30 38 20 41 |$(X)):NE|XT.208 A|
|00001530| 24 3d 22 5f cd 45 53 53 | 41 47 45 53 3a 22 2b 53 |$="_.ESS|AGES:"+S|
|00001540| 54 52 24 28 41 29 3a 47 | 4f 53 55 42 32 38 0a 32 |TR$(A):G|OSUB28.2|
|00001550| 31 30 20 41 24 3d 22 5f | cc 41 53 54 c3 41 4c 4c |10 A$="_|.AST.ALL|
|00001560| 3a 20 22 2b 4c 45 46 54 | 24 28 4f 4c 24 2c 31 38 |: "+LEFT|$(OL$,18|
|00001570| 29 2b 22 20 23 22 2b 53 | 54 52 24 28 59 56 2d 31 |)+" #"+S|TR$(YV-1|
|00001580| 29 3a 47 4f 53 55 42 32 | 38 0a 32 31 31 20 41 24 |):GOSUB2|8.211 A$|
|00001590| 3d 22 5f d0 41 47 45 52 | 20 c1 56 3a 20 22 2b 4d |="_.AGER| .V: "+M|
|000015a0| 49 44 24 28 22 cf 4e 20 | cf 46 46 22 2c 33 2a 50 |ID$(".N |.FF",3*P|
|000015b0| 45 45 4b 28 37 33 39 29 | 2b 31 2c 33 29 2b 22 5f |EEK(739)|+1,3)+"_|
|000015c0| 22 3a 47 4f 53 55 42 32 | 38 0a 32 33 30 20 50 4f |":GOSUB2|8.230 PO|
|000015d0| 4b 45 39 39 36 2c 2e 3a | 46 4f 52 58 3d 38 54 4f |KE996,.:|FORX=8TO|
|000015e0| 4e 42 2b 37 3a 43 4c 4f | 53 45 31 3a 4f 50 45 4e |NB+7:CLO|SE1:OPEN|
|000015f0| 31 2c 58 2c 31 35 3a 43 | 4c 4f 53 45 31 3a 49 46 |1,X,15:C|LOSE1:IF|
|00001600| 53 54 3d 2e 54 48 45 4e | 4f 50 45 4e 31 2c 58 2c |ST=.THEN|OPEN1,X,|
|00001610| 31 35 2c 22 49 30 3a 22 | 3a 43 4c 4f 53 45 31 0a |15,"I0:"|:CLOSE1.|
|00001620| 32 34 35 20 4e 45 58 54 | 3a 47 4f 53 55 42 36 36 |245 NEXT|:GOSUB66|
|00001630| 3a 4f 4e 2d 28 50 45 45 | 4b 28 31 30 32 33 29 3e |:ON-(PEE|K(1023)>|
|00001640| 32 35 32 29 47 4f 54 4f | 33 30 30 3a 45 3d 54 49 |252)GOTO|300:E=TI|
|00001650| 3a 47 4f 53 55 42 38 31 | 3a 47 4f 54 4f 35 30 30 |:GOSUB81|:GOTO500|
|00001660| 0a 32 35 30 20 50 4f 4b | 45 36 39 34 2c 2e 3a 47 |.250 POK|E694,.:G|
|00001670| 4f 53 55 42 37 35 3a 49 | 46 4a 39 3d 31 41 4e 44 |OSUB75:I|FJ9=1AND|
|00001680| 4a 3c 3e 31 54 48 45 4e | 53 59 53 34 39 32 33 39 |J<>1THEN|SYS49239|
|00001690| 3a 49 24 3d 43 24 3a 47 | 4f 54 4f 38 0a 32 35 31 |:I$=C$:G|OTO8.251|
|000016a0| 20 47 4f 53 55 42 36 38 | 3a 4f 4e 2d 28 50 41 3d | GOSUB68|:ON-(PA=|
|000016b0| 31 29 47 4f 53 55 42 32 | 31 3a 50 4f 4b 45 37 30 |1)GOSUB2|1:POKE70|
|000016c0| 33 2c 2e 3a 49 46 4f 3d | 2e 54 48 45 4e 4f 3d 33 |3,.:IFO=|.THENO=3|
|000016d0| 38 0a 32 35 32 20 41 24 | 3d 4c 45 46 54 24 28 58 |8.252 A$|=LEFT$(X|
|000016e0| 24 2c 4f 29 2b 22 22 3a | 53 59 53 34 39 32 31 35 |$,O)+"":|SYS49215|
|000016f0| 2c 41 24 3a 49 46 4a 3d | 31 41 4e 44 50 45 45 4b |,A$:IFJ=|1ANDPEEK|
|00001700| 28 37 30 37 29 3d 31 33 | 36 54 48 45 4e 50 4f 4b |(707)=13|6THENPOK|
|00001710| 45 37 30 37 2c 2e 3a 47 | 4f 54 4f 32 35 32 0a 32 |E707,.:G|OTO252.2|
|00001720| 35 33 20 49 46 50 45 45 | 4b 28 37 30 37 29 54 48 |53 IFPEE|K(707)TH|
|00001730| 45 4e 41 53 24 3d 41 24 | 3a 41 24 3d 43 48 52 24 |ENAS$=A$|:A$=CHR$|
|00001740| 28 50 45 45 4b 28 37 30 | 37 29 29 3a 47 4f 54 4f |(PEEK(70|7)):GOTO|
|00001750| 32 34 32 30 0a 32 35 34 | 20 49 46 50 45 45 4b 28 |2420.254| IFPEEK(|
|00001760| 37 30 33 29 54 48 45 4e | 5a 3d 31 3a 49 24 3d 43 |703)THEN|Z=1:I$=C|
|00001770| 24 3a 52 45 54 55 52 4e | 0a 32 35 35 20 49 24 3d |$:RETURN|.255 I$=|
|00001780| 41 24 3a 49 24 3d 4c 45 | 46 54 24 28 49 24 2c 50 |A$:I$=LE|FT$(I$,P|
|00001790| 45 45 4b 28 36 39 34 29 | 29 3a 49 46 50 45 45 4b |EEK(694)|):IFPEEK|
|000017a0| 28 36 39 34 29 3d 2e 54 | 48 45 4e 49 24 3d 43 24 |(694)=.T|HENI$=C$|
|000017b0| 0a 32 35 36 20 52 45 54 | 55 52 4e 0a 32 36 30 20 |.256 RET|URN.260 |
|000017c0| 46 4f 52 51 3d 31 54 4f | 4c 45 4e 28 49 24 29 3a |FORQ=1TO|LEN(I$):|
|000017d0| 49 46 4d 49 44 24 28 49 | 24 2c 51 2c 31 29 3d 51 |IFMID$(I|$,Q,1)=Q|
|000017e0| 24 54 48 45 4e 49 24 3d | 4c 45 46 54 24 28 49 24 |$THENI$=|LEFT$(I$|
|000017f0| 2c 51 2d 31 29 2b 22 01 | 22 2b 4d 49 44 24 28 49 |,Q-1)+".|"+MID$(I|
|00001800| 24 2c 51 2b 31 29 0a 32 | 36 31 20 4e 45 58 54 3a |$,Q+1).2|61 NEXT:|
|00001810| 52 45 54 55 52 4e 0a 32 | 36 32 20 45 24 3d 4c 45 |RETURN.2|62 E$=LE|
|00001820| 46 54 24 28 54 49 24 2c | 34 29 3a 47 4f 53 55 42 |FT$(TI$,|4):GOSUB|
|00001830| 39 30 30 0a 32 36 33 20 | 49 46 4d 54 3c 33 54 48 |900.263 |IFMT<3TH|
|00001840| 45 4e 41 24 3d 22 1b 1b | 1b 22 3a 47 4f 53 55 42 |ENA$="..|.":GOSUB|
|00001850| 32 32 0a 32 36 34 20 52 | 55 4e 0a 32 37 30 20 47 |22.264 R|UN.270 G|
|00001860| 4f 53 55 42 39 3a 41 24 | 3d 22 cf 4b 3f 20 03 22 |OSUB9:A$|=".K? ."|
|00001870| 3a 47 4f 53 55 42 39 3a | 47 4f 54 4f 33 31 0a 32 |:GOSUB9:|GOTO31.2|
|00001880| 37 32 20 49 46 28 50 45 | 45 4b 28 4d 50 29 41 4e |72 IF(PE|EK(MP)AN|
|00001890| 44 31 36 29 3d 43 50 54 | 48 45 4e 52 45 54 55 52 |D16)=CPT|HENRETUR|
|000018a0| 4e 0a 32 37 33 20 4b 32 | 3d 32 3a 41 24 3d 22 5a |N.273 K2|=2:A$="Z|
|000018b0| 22 3a 47 4f 53 55 42 32 | 32 3a 41 24 3d 22 4d 30 |":GOSUB2|2:A$="M0|
|000018c0| 58 31 56 30 45 30 22 3a | 47 4f 53 55 42 32 32 3a |X1V0E0":|GOSUB22:|
|000018d0| 41 24 3d 22 53 32 3d 32 | 37 53 30 3d 31 51 30 48 |A$="S2=2|7S0=1Q0H|
|000018e0| 22 3a 47 4f 54 4f 32 32 | 0a 32 37 35 20 47 4f 53 |":GOTO22|.275 GOS|
|000018f0| 55 42 39 30 3a 49 24 3d | 41 24 2b 22 22 3a 47 4f |UB90:I$=|A$+"":GO|
|00001900| 53 55 42 36 3a 43 4f 3d | 56 41 4c 28 49 24 29 3a |SUB6:CO=|VAL(I$):|
|00001910| 49 46 43 4f 3d 2e 54 48 | 45 4e 43 4f 3d 52 4e 2b |IFCO=.TH|ENCO=RN+|
|00001920| 35 0a 32 37 36 20 52 45 | 54 55 52 4e 0a 32 37 39 |5.276 RE|TURN.279|
|00001930| 20 4a 55 24 3d 4c 45 46 | 54 24 28 54 49 24 2c 34 | JU$=LEF|T$(TI$,4|
|00001940| 29 0a 32 38 30 20 4b 31 | 24 3d 22 41 22 3a 49 46 |).280 K1|$="A":IF|
|00001950| 56 41 4c 28 4a 55 24 29 | 3e 31 31 35 39 54 48 45 |VAL(JU$)|>1159THE|
|00001960| 4e 4b 31 24 3d 22 50 00 | 0a 32 38 31 20 49 46 56 |NK1$="P.|.281 IFV|
|00001970| 41 4c 28 4a 55 24 29 3e | 31 32 35 39 54 48 45 4e |AL(JU$)>|1259THEN|
|00001980| 4a 55 24 3d 4d 49 44 24 | 28 53 54 52 24 28 56 41 |JU$=MID$|(STR$(VA|
|00001990| 4c 28 4a 55 24 29 2d 31 | 32 30 30 29 2c 32 29 0a |L(JU$)-1|200),2).|
|000019a0| 32 38 32 20 49 46 56 41 | 4c 28 4c 45 46 54 24 28 |282 IFVA|L(LEFT$(|
|000019b0| 4a 55 24 2c 32 29 29 3d | 2e 54 48 45 4e 4a 55 24 |JU$,2))=|.THENJU$|
|000019c0| 3d 4d 49 44 24 28 53 54 | 52 24 28 56 41 4c 28 4a |=MID$(ST|R$(VAL(J|
|000019d0| 55 24 29 2b 31 32 30 30 | 29 2c 32 29 0a 32 38 33 |U$)+1200|),2).283|
|000019e0| 20 49 46 4c 45 4e 28 4a | 55 24 29 3d 33 54 48 45 | IFLEN(J|U$)=3THE|
|000019f0| 4e 4a 55 24 3d 22 30 22 | 2b 4a 55 24 0a 32 38 34 |NJU$="0"|+JU$.284|
|00001a00| 20 4a 55 24 3d 4c 45 46 | 54 24 28 4a 55 24 2c 32 | JU$=LEF|T$(JU$,2|
|00001a10| 29 2b 22 3a 22 2b 52 49 | 47 48 54 24 28 4a 55 24 |)+":"+RI|GHT$(JU$|
|00001a20| 2c 32 29 2b 4b 31 24 3a | 4b 31 24 3d 22 22 3a 52 |,2)+K1$:|K1$="":R|
|00001a30| 45 54 55 52 4e 0a 32 39 | 30 20 44 4a 3d 56 41 4c |ETURN.29|0 DJ=VAL|
|00001a40| 28 4c 45 46 54 24 28 4b | 24 2c 32 29 29 3a 4d 4a |(LEFT$(K|$,2)):MJ|
|00001a50| 3d 56 41 4c 28 4d 49 44 | 24 28 4b 24 2c 33 2c 32 |=VAL(MID|$(K$,3,2|
|00001a60| 29 29 3a 59 4a 3d 56 41 | 4c 28 52 49 47 48 54 24 |)):YJ=VA|L(RIGHT$|
|00001a70| 28 4b 24 2c 32 29 29 3a | 49 46 4d 4a 3c 33 54 48 |(K$,2)):|IFMJ<3TH|
|00001a80| 45 4e 4d 4a 3d 4d 4a 2b | 31 32 3a 59 4a 3d 59 4a |ENMJ=MJ+|12:YJ=YJ|
|00001a90| 2d 31 0a 32 39 31 20 4a | 4d 3d 44 4a 2b 32 2a 4d |-1.291 J|M=DJ+2*M|
|00001aa0| 4a 2b 49 4e 54 28 2e 36 | 2a 28 4d 4a 2b 31 29 29 |J+INT(.6|*(MJ+1))|
|00001ab0| 2b 59 4a 2b 49 4e 54 28 | 59 4a 2f 34 29 2b 33 3a |+YJ+INT(|YJ/4)+3:|
|00001ac0| 4a 4d 3d 49 4e 54 28 28 | 4a 4d 2f 37 2d 49 4e 54 |JM=INT((|JM/7-INT|
|00001ad0| 28 4a 4d 2f 37 29 29 2a | 37 2b 2e 35 29 0a 32 39 |(JM/7))*|7+.5).29|
|00001ae0| 32 20 4a 4d 24 3d 4d 49 | 44 24 28 22 d3 41 54 d3 |2 JM$=MI|D$(".AT.|
|00001af0| 55 4e cd 4f 4e d4 55 45 | d7 45 44 d4 48 55 c6 52 |UN.ON.UE|.ED.HU.R|
|00001b00| 49 22 2c 4a 4d 2a 33 2b | 31 2c 33 29 3a 4a 4d 3d |I",JM*3+|1,3):JM=|
|00001b10| 2e 3a 44 4a 3d 2e 3a 4d | 4a 3d 2e 3a 59 4a 3d 2e |.:DJ=.:M|J=.:YJ=.|
|00001b20| 3a 52 45 54 55 52 4e 0a | 32 39 34 20 41 3d 54 49 |:RETURN.|294 A=TI|
|00001b30| 3a 44 4d 24 3d 22 22 3a | 44 44 3d 2e 0a 32 39 35 |:DM$="":|DD=..295|
|00001b40| 20 49 46 54 49 2d 41 3c | 28 36 30 2d 36 30 2a 28 | IFTI-A<|(60-60*(|
|00001b50| 41 24 3d 22 5a 22 4f 52 | 41 24 3d 22 1b 1b 1b 22 |A$="Z"OR|A$="..."|
|00001b60| 29 29 54 48 45 4e 32 39 | 35 0a 32 39 36 20 47 45 |))THEN29|5.296 GE|
|00001b70| 54 23 35 2c 42 24 3a 49 | 46 42 24 3d 22 22 54 48 |T#5,B$:I|FB$=""TH|
|00001b80| 45 4e 42 24 3d 22 21 00 | 0a 32 39 37 20 49 46 42 |ENB$="!.|.297 IFB|
|00001b90| 24 3c 3e 52 24 41 4e 44 | 4c 45 4e 28 44 4d 24 29 |$<>R$AND|LEN(DM$)|
|00001ba0| 3c 34 35 54 48 45 4e 44 | 4d 24 3d 44 4d 24 2b 42 |<45THEND|M$=DM$+B|
|00001bb0| 24 3a 47 4f 54 4f 32 39 | 36 0a 32 39 38 20 44 44 |$:GOTO29|6.298 DD|
|00001bc0| 3d 44 44 2b 31 3a 49 46 | 44 4d 24 3d 22 4f 4b 22 |=DD+1:IF|DM$="OK"|
|00001bd0| 4f 52 44 4d 24 3d 22 30 | 22 4f 52 44 4d 24 3d 22 |ORDM$="0|"ORDM$="|
|00001be0| 0a 4f 4b 22 54 48 45 4e | 44 44 3d 2d 31 3a 52 45 |.OK"THEN|DD=-1:RE|
|00001bf0| 54 55 52 4e 0a 32 39 39 | 20 44 4d 24 3d 22 22 3a |TURN.299| DM$="":|
|00001c00| 4f 4e 2d 28 44 44 3c 34 | 29 47 4f 54 4f 32 39 36 |ON-(DD<4|)GOTO296|
|00001c10| 3a 52 45 54 55 52 4e 0a | 33 30 30 20 4e 24 3d 22 |:RETURN.|300 N$="|
|00001c20| 22 3a 4a 4d 3d 2e 3a 46 | 4f 52 58 3d 39 37 31 54 |":JM=.:F|ORX=971T|
|00001c30| 4f 39 39 35 3a 41 24 3d | 43 48 52 24 28 50 45 45 |O995:A$=|CHR$(PEE|
|00001c40| 4b 28 58 29 29 3a 49 46 | 41 24 3d 43 48 52 24 28 |K(X)):IF|A$=CHR$(|
|00001c50| 2e 29 54 48 45 4e 58 3d | 39 39 35 3a 47 4f 54 4f |.)THENX=|995:GOTO|
|00001c60| 33 30 34 0a 33 30 31 20 | 4e 24 3d 4e 24 2b 41 24 |304.301 |N$=N$+A$|
|00001c70| 0a 33 30 34 20 4e 45 58 | 54 3a 55 3d 38 3a 44 44 |.304 NEX|T:U=8:DD|
|00001c80| 24 3d 22 30 3a 22 3a 46 | 4f 52 58 3d 31 54 4f 32 |$="0:":F|ORX=1TO2|
|00001c90| 35 3a 49 46 52 49 47 48 | 54 24 28 4e 24 2c 58 29 |5:IFRIGH|T$(N$,X)|
|00001ca0| 3d 52 49 47 48 54 24 28 | 58 24 2c 58 29 54 48 45 |=RIGHT$(|X$,X)THE|
|00001cb0| 4e 4e 45 58 54 3a 47 4f | 54 4f 33 30 36 0a 33 30 |NNEXT:GO|TO306.30|
|00001cc0| 35 20 4a 4d 3d 58 3a 58 | 3d 32 35 3a 4e 45 58 54 |5 JM=X:X|=25:NEXT|
|00001cd0| 3a 58 3d 4a 4d 3a 4a 4d | 3d 2e 0a 33 30 36 20 4e |:X=JM:JM|=..306 N|
|00001ce0| 24 3d 4c 45 46 54 24 28 | 4e 24 2c 32 36 2d 58 29 |$=LEFT$(|N$,26-X)|
|00001cf0| 3a 45 24 3d 22 22 3a 46 | 4f 52 58 3d 2e 54 4f 31 |:E$="":F|ORX=.TO1|
|00001d00| 0a 33 30 37 20 41 3d 50 | 45 45 4b 28 37 31 30 2b |.307 A=P|EEK(710+|
|00001d10| 58 29 3a 47 4f 53 55 42 | 37 38 3a 45 24 3d 45 24 |X):GOSUB|78:E$=E$|
|00001d20| 2b 41 24 3a 4e 45 58 54 | 3a 4c 53 3d 50 45 45 4b |+A$:NEXT|:LS=PEEK|
|00001d30| 28 37 30 36 29 41 4e 44 | 31 3a 47 4f 53 55 42 37 |(706)AND|1:GOSUB7|
|00001d40| 35 0a 33 30 38 20 47 4f | 53 55 42 38 30 3a 45 3d |5.308 GO|SUB80:E=|
|00001d50| 56 41 4c 28 4c 45 46 54 | 24 28 42 24 2c 32 29 29 |VAL(LEFT|$(B$,2))|
|00001d60| 2a 36 30 5e 33 2b 56 41 | 4c 28 4d 49 44 24 28 42 |*60^3+VA|L(MID$(B|
|00001d70| 24 2c 34 2c 32 29 29 2a | 36 30 5e 32 3a 45 3d 45 |$,4,2))*|60^2:E=E|
|00001d80| 2b 28 56 41 4c 28 52 49 | 47 48 54 24 28 42 24 2c |+(VAL(RI|GHT$(B$,|
|00001d90| 32 29 29 2b 31 29 2a 36 | 30 0a 33 30 39 20 45 3d |2))+1)*6|0.309 E=|
|00001da0| 54 49 2d 45 3a 49 46 54 | 42 24 28 4c 44 29 3d 22 |TI-E:IFT|B$(LD)="|
|00001db0| 30 22 54 48 45 4e 50 4f | 4b 45 35 33 32 36 35 2c |0"THENPO|KE53265,|
|00001dc0| 50 45 45 4b 28 35 33 32 | 36 35 29 4f 52 31 36 3a |PEEK(532|65)OR16:|
|00001dd0| 43 4c 4f 53 45 31 3a 4f | 50 45 4e 31 2c 4c 44 2c |CLOSE1:O|PEN1,LD,|
|00001de0| 31 35 2c 22 55 49 2b 22 | 3a 43 4c 4f 53 45 31 0a |15,"UI+"|:CLOSE1.|
|00001df0| 33 31 30 20 49 46 4a 24 | 3c 3e 4e 24 54 48 45 4e |310 IFJ$|<>N$THEN|
|00001e00| 45 54 3d 33 3a 47 4f 53 | 55 42 38 3a 47 4f 54 4f |ET=3:GOS|UB8:GOTO|
|00001e10| 32 30 30 34 30 0a 33 32 | 30 20 43 57 24 3d 50 53 |20040.32|0 CW$=PS|
|00001e20| 24 3a 46 57 3d 32 30 3a | 4f 43 3d 42 3a 41 43 3d |$:FW=20:|OC=B:AC=|
|00001e30| 42 3a 43 53 3d 42 3a 4d | 4e 3d 56 41 4c 28 53 59 |B:CS=B:M|N=VAL(SY|
|00001e40| 28 2e 29 29 3a 4d 4e 24 | 3d 53 59 24 28 2e 29 3a |(.)):MN$|=SY$(.):|
|00001e50| 53 43 3d 31 3a 43 4e 3d | 2e 3a 50 3d 31 3a 54 30 |SC=1:CN=|.:P=1:T0|
|00001e60| 3d 42 0a 33 33 30 20 52 | 4e 3d 56 41 4c 28 52 34 |=B.330 R|N=VAL(R4|
|00001e70| 24 28 2e 29 29 3a 57 44 | 3d 33 38 3a 43 35 3d 43 |$(.)):WD|=38:C5=C|
|00001e80| 53 3a 4c 31 3d 43 4e 3a | 51 38 3d 46 57 3a 4f 4e |S:L1=CN:|Q8=FW:ON|
|00001e90| 2d 28 50 45 45 4b 28 31 | 30 32 33 29 3d 42 29 47 |-(PEEK(1|023)=B)G|
|00001ea0| 4f 54 4f 33 3a 50 30 3d | 31 3a 47 4f 54 4f 38 36 |OTO3:P0=|1:GOTO86|
|00001eb0| 30 0a 33 34 30 20 41 24 | 3d 43 4f 24 28 35 29 2b |0.340 A$|=CO$(5)+|
|00001ec0| 22 d3 45 4c 45 43 54 45 | 44 20 c3 41 54 45 47 4f |".ELECTE|D .ATEGO|
|00001ed0| 52 49 45 53 3a 20 22 2b | 43 4f 24 28 36 29 2b 4c |RIES: "+|CO$(6)+L|
|00001ee0| 45 46 54 24 28 22 30 31 | 32 33 34 35 36 22 2c 4e |EFT$("01|23456",N|
|00001ef0| 43 2b 31 29 3a 47 4f 53 | 55 42 39 0a 33 34 31 20 |C+1):GOS|UB9.341 |
|00001f00| 41 24 3d 4c 45 46 54 24 | 28 58 24 2c 32 31 29 3a |A$=LEFT$|(X$,21):|
|00001f10| 46 4f 52 49 3d 31 54 4f | 4e 43 2b 31 3a 41 24 3d |FORI=1TO|NC+1:A$=|
|00001f20| 41 24 2b 4d 49 44 24 28 | 22 2d c9 22 2c 2d 31 2a |A$+MID$(|"-.",-1*|
|00001f30| 28 28 43 53 41 4e 44 32 | 5e 49 29 3d 32 5e 49 29 |((CSAND2|^I)=2^I)|
|00001f40| 2b 31 2c 31 29 3a 4e 45 | 58 54 3a 47 4f 54 4f 32 |+1,1):NE|XT:GOTO2|
|00001f50| 0a 33 34 33 20 57 3d 2e | 3a 48 24 3d 22 22 3a 49 |.343 W=.|:H$="":I|
|00001f60| 46 41 24 3d 22 22 54 48 | 45 4e 41 24 3d 22 02 03 |FA$=""TH|ENA$="..|
|00001f70| 00 0a 33 34 34 20 49 46 | 52 49 47 48 54 24 28 41 |..344 IF|RIGHT$(A|
|00001f80| 24 2c 31 29 3c 3e 22 03 | 22 54 48 45 4e 47 45 54 |$,1)<>".|"THENGET|
|00001f90| 23 35 2c 4b 39 24 0a 33 | 34 35 20 53 59 53 34 39 |#5,K9$.3|45 SYS49|
|00001fa0| 32 30 33 2c 41 24 3a 53 | 59 53 34 39 32 33 39 3a |203,A$:S|YS49239:|
|00001fb0| 47 4f 53 55 42 34 32 3a | 49 46 5a 54 48 45 4e 48 |GOSUB42:|IFZTHENH|
|00001fc0| 24 3d 22 10 22 3a 57 3d | 31 3a 52 45 54 55 52 4e |$=".":W=|1:RETURN|
|00001fd0| 0a 33 34 36 20 49 46 52 | 49 47 48 54 24 28 41 24 |.346 IFR|IGHT$(A$|
|00001fe0| 2c 31 29 3d 22 03 22 54 | 48 45 4e 52 45 54 55 52 |,1)="."T|HENRETUR|
|00001ff0| 4e 0a 33 35 30 20 49 46 | 4b 39 24 3e 22 22 54 48 |N.350 IF|K9$>""TH|
|00002000| 45 4e 41 24 3d 4b 39 24 | 3a 47 4f 54 4f 33 36 30 |ENA$=K9$|:GOTO360|
|00002010| 0a 33 35 32 20 47 45 54 | 41 24 3a 49 46 41 24 3e |.352 GET|A$:IFA$>|
|00002020| 22 22 54 48 45 4e 33 36 | 30 0a 33 35 34 20 47 45 |""THEN36|0.354 GE|
|00002030| 54 23 35 2c 41 24 3a 49 | 46 41 24 3e 22 22 54 48 |T#5,A$:I|FA$>""TH|
|00002040| 45 4e 33 36 30 0a 33 35 | 36 20 49 46 28 50 45 45 |EN360.35|6 IF(PEE|
|00002050| 4b 28 36 37 33 29 41 4e | 44 31 29 3d 2e 54 48 45 |K(673)AN|D1)=.THE|
|00002060| 4e 52 45 54 55 52 4e 0a | 33 35 38 20 47 4f 54 4f |NRETURN.|358 GOTO|
|00002070| 33 35 32 0a 33 36 30 20 | 4b 3d 54 49 3a 41 3d 41 |352.360 |K=TI:A=A|
|00002080| 53 43 28 41 24 29 3a 49 | 46 41 3e 31 32 37 54 48 |SC(A$):I|FA>127TH|
|00002090| 45 4e 41 24 3d 43 48 52 | 24 28 41 2d 31 32 38 29 |ENA$=CHR|$(A-128)|
|000020a0| 0a 33 36 34 20 49 46 41 | 24 3d 22 01 22 4f 52 41 |.364 IFA|$="."ORA|
|000020b0| 24 3d 22 10 22 4f 52 41 | 24 3d 22 03 22 54 48 45 |$="."ORA|$="."THE|
|000020c0| 4e 48 24 3d 41 24 3a 57 | 3d 31 3a 52 45 54 55 52 |NH$=A$:W|=1:RETUR|
|000020d0| 4e 0a 33 36 36 20 49 46 | 41 24 3d 22 53 22 4f 52 |N.366 IF|A$="S"OR|
|000020e0| 41 24 3d 43 48 52 24 28 | 31 31 35 29 4f 52 41 24 |A$=CHR$(|115)ORA$|
|000020f0| 3d 22 13 22 54 48 45 4e | 41 24 3d 22 3c 22 2b 43 |="."THEN|A$="<"+C|
|00002100| 4f 24 28 31 29 2b 22 c3 | 22 2b 43 4f 24 28 32 29 |O$(1)+".|"+CO$(2)|
|00002110| 2b 22 3e 03 22 3a 47 4f | 53 55 42 32 3a 47 4f 54 |+">.":GO|SUB2:GOT|
|00002120| 4f 33 37 30 0a 33 36 38 | 20 47 4f 54 4f 33 35 32 |O370.368| GOTO352|
|00002130| 0a 33 37 30 20 47 45 54 | 41 24 3a 49 46 41 24 3e |.370 GET|A$:IFA$>|
|00002140| 22 22 54 48 45 4e 33 37 | 36 0a 33 37 32 20 47 4f |""THEN37|6.372 GO|
|00002150| 53 55 42 34 32 3a 49 46 | 28 54 49 2d 4b 3e 57 54 |SUB42:IF|(TI-K>WT|
|00002160| 29 4f 52 5a 54 48 45 4e | 5a 3d 31 3a 41 24 3d 43 |)ORZTHEN|Z=1:A$=C|
|00002170| 48 52 24 28 36 35 29 3a | 47 4f 54 4f 33 37 36 0a |HR$(65):|GOTO376.|
|00002180| 33 37 34 20 53 59 53 34 | 39 32 33 39 3a 47 45 54 |374 SYS4|9239:GET|
|00002190| 23 35 2c 41 24 3a 49 46 | 41 24 3d 22 22 54 48 45 |#5,A$:IF|A$=""THE|
|000021a0| 4e 33 37 30 0a 33 37 36 | 20 41 3d 41 53 43 28 41 |N370.376| A=ASC(A|
|000021b0| 24 29 3a 49 46 41 3e 31 | 32 37 54 48 45 4e 41 24 |$):IFA>1|27THENA$|
|000021c0| 3d 43 48 52 24 28 41 2d | 31 32 38 29 0a 33 37 38 |=CHR$(A-|128).378|
|000021d0| 20 49 46 41 24 3d 22 41 | 22 4f 52 41 24 3d 43 48 | IFA$="A|"ORA$=CH|
|000021e0| 52 24 28 39 37 29 4f 52 | 41 24 3d 22 10 22 4f 52 |R$(97)OR|A$="."OR|
|000021f0| 41 24 3d 22 03 22 54 48 | 45 4e 47 4f 53 55 42 33 |A$="."TH|ENGOSUB3|
|00002200| 38 34 3a 57 3d 31 3a 52 | 45 54 55 52 4e 0a 33 38 |84:W=1:R|ETURN.38|
|00002210| 30 20 49 46 41 24 3d 22 | 43 22 4f 52 41 24 3d 43 |0 IFA$="|C"ORA$=C|
|00002220| 48 52 24 28 39 39 29 4f | 52 41 24 3d 22 11 22 54 |HR$(99)O|RA$="."T|
|00002230| 48 45 4e 33 38 34 0a 33 | 38 32 20 47 4f 54 4f 33 |HEN384.3|82 GOTO3|
|00002240| 37 30 0a 33 38 34 20 41 | 24 3d 43 48 52 24 28 32 |70.384 A|$=CHR$(2|
|00002250| 30 29 3a 41 24 3d 41 24 | 2b 41 24 2b 41 24 2b 22 |0):A$=A$|+A$+A$+"|
|00002260| 03 22 3a 47 4f 53 55 42 | 32 3a 52 45 54 55 52 4e |.":GOSUB|2:RETURN|
|00002270| 0a 33 39 30 20 41 24 3d | 22 d3 50 45 4e 43 45 2d |.390 A$=|".PENCE-|
|00002280| d8 d0 20 c2 c2 d3 20 56 | 36 2e 38 41 20 28 c3 29 |.. ... V|6.8A (.)|
|00002290| 20 31 39 39 34 22 3a 47 | 4f 53 55 42 39 3a 4b 32 | 1994":G|OSUB9:K2|
|000022a0| 3d 2e 3a 49 46 49 24 3c | 3e 22 d6 22 54 48 45 4e |=.:IFI$<|>"."THEN|
|000022b0| 52 45 54 55 52 4e 0a 33 | 39 31 20 41 24 3d 22 d0 |RETURN.3|91 A$=".|
|000022c0| 52 4f 47 52 41 4d 4d 45 | 44 20 42 59 3a 02 02 cb |ROGRAMME|D BY:...|
|000022d0| 45 4e 20 d3 50 45 4e 43 | 45 02 ca 41 4d 45 53 a0 |EN .PENC|E..AMES.|
|000022e0| cd 41 43 c6 41 52 4c 41 | 4e 45 22 3a 47 4f 53 55 |.AC.ARLA|NE":GOSU|
|000022f0| 42 39 0a 33 39 32 20 41 | 24 3d 22 c2 52 55 43 45 |B9.392 A|$=".RUCE|
|00002300| 20 d6 52 49 45 4c 49 4e | 47 02 ca 41 53 4f 4e a0 | .RIELIN|G..ASON.|
|00002310| cd 41 43 c9 4e 4e 45 53 | 22 3a 47 4f 53 55 42 32 |.AC.NNES|":GOSUB2|
|00002320| 0a 33 39 33 20 41 24 3d | 22 c5 58 43 45 50 54 3a |.393 A$=|".XCEPT:|
|00002330| 02 02 c6 41 53 54 20 c7 | 41 52 42 41 47 45 20 42 |...AST .|ARBAGE B|
|00002340| 59 20 c4 41 56 49 44 20 | d7 49 4c 4c 49 41 4d 53 |Y .AVID |.ILLIAMS|
|00002350| 22 3a 47 4f 53 55 42 39 | 0a 33 39 34 20 41 24 3d |":GOSUB9|.394 A$=|
|00002360| 22 cf 52 49 47 49 4e 41 | 4c 20 d8 4d 4f 44 45 4d |".RIGINA|L .MODEM|
|00002370| 20 42 59 20 c1 4c 41 4e | 20 d0 45 54 45 52 53 02 | BY .LAN| .ETERS.|
|00002380| 02 d0 55 4e 54 45 52 20 | c3 31 d6 32 20 42 59 20 |..UNTER |.1.2 BY |
|00002390| d3 54 45 56 45 20 d0 55 | 4e 54 45 52 22 3a 47 4f |.TEVE .U|NTER":GO|
|000023a0| 53 55 42 39 0a 33 39 35 | 20 41 24 3d 22 32 34 30 |SUB9.395| A$="240|
|000023b0| 30 20 c2 d0 d3 20 d2 d3 | 2d 32 33 32 20 c3 4f 44 |0 ... ..|-232 .OD|
|000023c0| 45 20 42 59 20 c7 45 4f | 52 47 45 20 c8 55 47 22 |E BY .EO|RGE .UG"|
|000023d0| 3a 47 4f 54 4f 39 0a 34 | 30 30 20 50 4f 4b 45 37 |:GOTO9.4|00 POKE7|
|000023e0| 30 36 2c 42 3a 41 24 3d | 22 4c 4f 43 41 4c 22 3a |06,B:A$=|"LOCAL":|
|000023f0| 47 4f 53 55 42 31 34 3a | 41 24 3d 22 5f 22 3a 47 |GOSUB14:|A$="_":G|
|00002400| 4f 53 55 42 32 38 3a 46 | 3d 2e 3a 4b 32 3d 2e 3a |OSUB28:F|=.:K2=.:|
|00002410| 49 46 4d 54 3c 33 54 48 | 45 4e 41 24 3d 22 53 30 |IFMT<3TH|ENA$="S0|
|00002420| 3d 30 48 31 22 3a 47 4f | 53 55 42 32 32 0a 34 30 |=0H1":GO|SUB22.40|
|00002430| 31 20 4c 53 3d 31 3a 50 | 4f 4b 45 37 30 30 2c 42 |1 LS=1:P|OKE700,B|
|00002440| 3a 49 24 3d 22 31 32 30 | 30 22 3a 47 4f 53 55 42 |:I$="120|0":GOSUB|
|00002450| 31 36 32 32 35 3a 47 45 | 54 23 35 2c 41 24 3a 47 |16225:GE|T#5,A$:G|
|00002460| 4f 54 4f 37 30 31 0a 34 | 35 30 20 4f 50 45 4e 32 |OTO701.4|50 OPEN2|
|00002470| 2c 38 2c 32 2c 22 30 3a | 41 43 54 49 4f 4e 22 3a |,8,2,"0:|ACTION":|
|00002480| 41 3d 56 41 4c 28 4c 45 | 46 54 24 28 54 49 24 2c |A=VAL(LE|FT$(TI$,|
|00002490| 32 29 29 0a 34 35 32 20 | 46 4f 52 58 3d 2e 54 4f |2)).452 |FORX=.TO|
|000024a0| 41 2d 31 3a 49 4e 50 55 | 54 23 32 2c 41 24 3a 4e |A-1:INPU|T#2,A$:N|
|000024b0| 45 58 54 3a 49 4e 50 55 | 54 23 32 2c 46 24 0a 34 |EXT:INPU|T#2,F$.4|
|000024c0| 35 34 20 43 4c 4f 53 45 | 32 3a 50 4f 4b 45 37 33 |54 CLOSE|2:POKE73|
|000024d0| 38 2c 41 3a 49 46 46 24 | 3d 22 22 4f 52 46 24 3d |8,A:IFF$|=""ORF$=|
|000024e0| 22 20 22 54 48 45 4e 36 | 36 30 0a 34 35 35 20 41 |" "THEN6|60.455 A|
|000024f0| 3d 56 41 4c 28 4c 45 46 | 54 24 28 46 24 2c 31 29 |=VAL(LEF|T$(F$,1)|
|00002500| 29 3a 58 3d 56 41 4c 28 | 44 59 24 29 3a 49 46 41 |):X=VAL(|DY$):IFA|
|00002510| 54 48 45 4e 46 24 3d 4d | 49 44 24 28 46 24 2c 32 |THENF$=M|ID$(F$,2|
|00002520| 29 3a 49 46 28 58 2f 41 | 29 3c 3e 49 4e 54 28 58 |):IF(X/A|)<>INT(X|
|00002530| 2f 41 29 4f 52 58 3d 31 | 54 48 45 4e 36 36 30 0a |/A)ORX=1|THEN660.|
|00002540| 34 35 36 20 41 24 3d 22 | 53 30 3d 30 48 31 22 3a |456 A$="|S0=0H1":|
|00002550| 47 4f 53 55 42 32 32 3a | 47 4f 54 4f 39 30 30 33 |GOSUB22:|GOTO9003|
|00002560| 0a 34 36 30 20 41 24 3d | 22 53 59 53 4f 50 20 53 |.460 A$=|"SYSOP S|
|00002570| 54 41 54 55 53 3f 20 22 | 3a 42 24 3d 41 24 3a 47 |TATUS? "|:B$=A$:G|
|00002580| 4f 53 55 42 31 34 0a 34 | 36 32 20 47 45 54 41 24 |OSUB14.4|62 GETA$|
|00002590| 3a 49 46 41 24 3d 22 22 | 54 48 45 4e 34 36 32 0a |:IFA$=""|THEN462.|
|000025a0| 34 36 34 20 49 46 41 24 | 3d 22 59 22 41 4e 44 53 |464 IFA$|="Y"ANDS|
|000025b0| 43 3d 2e 54 48 45 4e 53 | 43 3d 31 3a 53 31 3d 31 |C=.THENS|C=1:S1=1|
|000025c0| 3a 47 4f 54 4f 34 36 38 | 0a 34 36 36 20 49 46 41 |:GOTO468|.466 IFA|
|000025d0| 24 3d 22 4e 22 41 4e 44 | 53 31 3d 31 54 48 45 4e |$="N"AND|S1=1THEN|
|000025e0| 53 43 3d 2e 3a 53 31 3d | 2e 0a 34 36 38 20 41 24 |SC=.:S1=|..468 A$|
|000025f0| 3d 42 24 2b 41 24 3a 47 | 4f 53 55 42 31 34 3a 47 |=B$+A$:G|OSUB14:G|
|00002600| 4f 54 4f 32 34 33 34 0a | 34 37 30 20 41 4c 24 28 |OTO2434.|470 AL$(|
|00002610| 47 4d 29 3d 53 54 52 24 | 28 4e 29 3a 52 46 24 28 |GM)=STR$|(N):RF$(|
|00002620| 47 4d 29 3d 53 54 52 24 | 28 52 29 0a 34 37 32 20 |GM)=STR$|(R).472 |
|00002630| 43 4c 4f 53 45 31 35 3a | 43 4c 4f 53 45 31 3a 4f |CLOSE15:|CLOSE1:O|
|00002640| 50 45 4e 31 2c 38 2c 31 | 35 2c 22 53 30 3a 53 54 |PEN1,8,1|5,"S0:ST|
|00002650| 41 54 53 22 3a 4f 50 45 | 4e 31 35 2c 38 2c 33 2c |ATS":OPE|N15,8,3,|
|00002660| 22 30 3a 53 54 41 54 53 | 2c 53 2c 57 00 0a 34 37 |"0:STATS|,S,W..47|
|00002670| 34 20 46 4f 52 58 3d 2e | 54 4f 4d 47 3a 50 52 49 |4 FORX=.|TOMG:PRI|
|00002680| 4e 54 23 31 35 2c 53 59 | 24 28 58 29 3b 52 24 3b |NT#15,SY|$(X);R$;|
|00002690| 52 34 24 28 58 29 3b 52 | 24 3b 41 4c 24 28 58 29 |R4$(X);R|$;AL$(X)|
|000026a0| 3b 52 24 3b 52 46 24 28 | 58 29 3a 4e 45 58 54 0a |;R$;RF$(|X):NEXT.|
|000026b0| 34 37 36 20 50 52 49 4e | 54 23 31 35 2c 53 54 52 |476 PRIN|T#15,STR|
|000026c0| 24 28 55 53 29 3b 52 24 | 3b 51 24 2b 4f 4c 24 3b |$(US);R$|;Q$+OL$;|
|000026d0| 52 24 3b 53 54 52 24 28 | 59 56 29 3b 52 24 3b 46 |R$;STR$(|YV);R$;F|
|000026e0| 42 24 3b 52 24 3b 42 46 | 24 3a 49 46 44 52 3d 2d |B$;R$;BF|$:IFDR=-|
|000026f0| 31 54 48 45 4e 34 38 30 | 0a 34 37 38 20 46 4f 52 |1THEN480|.478 FOR|
|00002700| 58 3d 2e 54 4f 44 52 3a | 50 52 49 4e 54 23 31 35 |X=.TODR:|PRINT#15|
|00002710| 2c 44 52 24 28 58 29 3a | 4e 45 58 54 0a 34 38 30 |,DR$(X):|NEXT.480|
|00002720| 20 43 4c 4f 53 45 31 35 | 3a 43 4c 4f 53 45 31 3a | CLOSE15|:CLOSE1:|
|00002730| 52 45 54 55 52 4e 0a 34 | 39 30 20 41 24 3d 22 4c |RETURN.4|90 A$="L|
|00002740| 4f 47 4f 46 46 3f 20 22 | 3a 42 24 3d 41 24 3a 47 |OGOFF? "|:B$=A$:G|
|00002750| 4f 53 55 42 31 34 0a 34 | 39 32 20 47 45 54 41 24 |OSUB14.4|92 GETA$|
|00002760| 3a 49 46 41 24 3d 22 22 | 54 48 45 4e 34 39 32 0a |:IFA$=""|THEN492.|
|00002770| 34 39 34 20 44 45 3d 2e | 3a 49 46 41 24 3d 22 59 |494 DE=.|:IFA$="Y|
|00002780| 22 54 48 45 4e 44 45 3d | 31 3a 5a 3d 31 0a 34 39 |"THENDE=|1:Z=1.49|
|00002790| 36 20 41 24 3d 42 24 2b | 41 24 3a 47 4f 54 4f 31 |6 A$=B$+|A$:GOTO1|
|000027a0| 34 0a 35 30 30 20 46 3d | 31 3a 44 58 3d 31 3a 47 |4.500 F=|1:DX=1:G|
|000027b0| 4f 53 55 42 31 3a 50 4f | 4b 45 31 30 32 33 2c 2e |OSUB1:PO|KE1023,.|
|000027c0| 3a 50 4f 4b 45 37 30 32 | 2c 2e 3a 50 4f 4b 45 37 |:POKE702|,.:POKE7|
|000027d0| 30 31 2c 31 3a 5a 31 3d | 2e 0a 35 34 30 20 49 46 |01,1:Z1=|..540 IF|
|000027e0| 4d 54 3c 33 54 48 45 4e | 47 45 54 23 35 2c 41 24 |MT<3THEN|GET#5,A$|
|000027f0| 3a 49 46 41 24 3e 22 22 | 54 48 45 4e 35 34 30 0a |:IFA$>""|THEN540.|
|00002800| 35 39 30 20 47 4f 53 55 | 42 36 36 3a 4b 24 3d 44 |590 GOSU|B66:K$=D|
|00002810| 24 3a 47 4f 53 55 42 33 | 38 3a 50 4f 4b 45 37 30 |$:GOSUB3|8:POKE70|
|00002820| 33 2c 2e 3a 50 4f 4b 45 | 37 30 34 2c 2e 3a 57 44 |3,.:POKE|704,.:WD|
|00002830| 3d 37 38 3a 50 4f 4b 45 | 36 38 37 2c 57 44 3a 50 |=78:POKE|687,WD:P|
|00002840| 52 49 4e 54 22 90 12 20 | 92 97 9d 22 3b 3a 47 4f |RINT".. |...";:GO|
|00002850| 53 55 42 37 35 3a 5a 3d | 2e 0a 36 31 35 20 41 24 |SUB75:Z=|..615 A$|
|00002860| 3d 22 57 41 49 54 49 4e | 47 20 46 4f 52 20 43 41 |="WAITIN|G FOR CA|
|00002870| 4c 4c 22 3a 47 4f 53 55 | 42 31 34 3a 49 46 4d 54 |LL":GOSU|B14:IFMT|
|00002880| 3c 33 54 48 45 4e 41 24 | 3d 22 53 30 3d 31 48 22 |<3THENA$|="S0=1H"|
|00002890| 3a 47 4f 53 55 42 32 32 | 0a 36 31 37 20 52 44 3d |:GOSUB22|.617 RD=|
|000028a0| 50 45 45 4b 28 4d 50 29 | 0a 36 32 30 20 49 46 50 |PEEK(MP)|.620 IFP|
|000028b0| 45 45 4b 28 4d 50 29 3c | 3e 52 44 41 4e 44 4d 54 |EEK(MP)<|>RDANDMT|
|000028c0| 3c 33 54 48 45 4e 36 37 | 30 0a 36 33 30 20 47 45 |<3THEN67|0.630 GE|
|000028d0| 54 41 24 3a 49 46 41 24 | 3d 22 cc 22 54 48 45 4e |TA$:IFA$|="."THEN|
|000028e0| 34 30 30 0a 36 33 35 20 | 49 46 41 24 3d 22 d1 22 |400.635 |IFA$="."|
|000028f0| 54 48 45 4e 41 24 3d 22 | 5a 22 3a 4f 4e 2d 28 4d |THENA$="|Z":ON-(M|
|00002900| 54 3c 33 29 47 4f 53 55 | 42 32 32 3a 53 59 53 36 |T<3)GOSU|B22:SYS6|
|00002910| 34 37 33 38 0a 36 34 30 | 20 49 46 28 41 24 3d 22 |4738.640| IF(A$="|
|00002920| 89 22 4f 52 41 24 3d 22 | d4 22 29 41 4e 44 4d 54 |."ORA$="|.")ANDMT|
|00002930| 3c 33 54 48 45 4e 46 24 | 3d 22 d4 c5 d2 cd 22 3a |<3THENF$|="....":|
|00002940| 53 43 3d 31 3a 50 4f 4b | 45 37 30 36 2c 42 3a 41 |SC=1:POK|E706,B:A|
|00002950| 24 3d 22 5a 22 3a 47 4f | 53 55 42 32 32 3a 47 4f |$="Z":GO|SUB22:GO|
|00002960| 54 4f 39 30 30 33 0a 36 | 34 35 20 49 46 41 24 3d |TO9003.6|45 IFA$=|
|00002970| 22 c3 22 54 48 45 4e 50 | 4f 4b 45 37 33 39 2c 31 |"."THENP|OKE739,1|
|00002980| 2d 50 45 45 4b 28 37 33 | 39 29 3a 52 55 4e 0a 36 |-PEEK(73|9):RUN.6|
|00002990| 35 30 20 49 46 56 41 4c | 28 54 49 24 29 3c 31 45 |50 IFVAL|(TI$)<1E|
|000029a0| 34 41 4e 44 50 45 45 4b | 28 31 30 31 38 29 3c 3e |4ANDPEEK|(1018)<>|
|000029b0| 31 54 48 45 4e 47 4f 53 | 55 42 37 30 30 30 3a 47 |1THENGOS|UB7000:G|
|000029c0| 4f 54 4f 36 32 30 0a 36 | 35 35 20 49 46 56 41 4c |OTO620.6|55 IFVAL|
|000029d0| 28 54 49 24 29 3e 31 45 | 34 54 48 45 4e 50 4f 4b |(TI$)>1E|4THENPOK|
|000029e0| 45 31 30 31 38 2c 2e 0a | 36 35 37 20 49 46 50 45 |E1018,..|657 IFPE|
|000029f0| 45 4b 28 37 33 38 29 3c | 3e 56 41 4c 28 4c 45 46 |EK(738)<|>VAL(LEF|
|00002a00| 54 24 28 54 49 24 2c 32 | 29 29 54 48 45 4e 34 35 |T$(TI$,2|))THEN45|
|00002a10| 30 0a 36 36 30 20 53 59 | 53 34 39 32 33 39 3a 47 |0.660 SY|S49239:G|
|00002a20| 4f 54 4f 36 32 30 0a 36 | 37 30 20 50 4f 4b 45 37 |OTO620.6|70 POKE7|
|00002a30| 30 30 2c 2e 3a 41 24 3d | 22 52 49 4e 47 22 3a 47 |00,.:A$=|"RING":G|
|00002a40| 4f 53 55 42 31 34 3a 50 | 4f 4b 45 37 30 36 2c 2e |OSUB14:P|OKE706,.|
|00002a50| 3a 42 24 3d 22 22 3a 41 | 3d 54 49 0a 36 37 31 20 |:B$="":A|=TI.671 |
|00002a60| 49 46 54 49 2d 41 3e 39 | 39 30 54 48 45 4e 41 24 |IFTI-A>9|90THENA$|
|00002a70| 3d 22 4e 4f 20 43 41 52 | 52 49 45 52 22 3a 47 4f |="NO CAR|RIER":GO|
|00002a80| 53 55 42 31 34 3a 47 4f | 54 4f 32 36 33 0a 36 37 |SUB14:GO|TO263.67|
|00002a90| 32 20 49 46 4d 54 54 48 | 45 4e 36 37 36 0a 36 37 |2 IFMTTH|EN676.67|
|00002aa0| 33 20 58 3d 50 45 45 4b | 28 4d 50 29 41 4e 44 31 |3 X=PEEK|(MP)AND1|
|00002ab0| 36 3a 49 46 58 3d 43 50 | 41 4e 44 28 50 45 45 4b |6:IFX=CP|AND(PEEK|
|00002ac0| 28 4d 50 29 41 4e 44 33 | 32 29 3d 33 32 54 48 45 |(MP)AND3|2)=32THE|
|00002ad0| 4e 49 24 3d 22 33 30 30 | 22 3a 47 4f 54 4f 36 38 |NI$="300|":GOTO68|
|00002ae0| 35 0a 36 37 34 20 49 46 | 58 3d 43 50 41 4e 44 28 |5.674 IF|X=CPAND(|
|00002af0| 50 45 45 4b 28 4d 50 29 | 41 4e 44 33 32 29 3d 2e |PEEK(MP)|AND32)=.|
|00002b00| 54 48 45 4e 49 24 3d 22 | 31 32 30 30 22 3a 47 4f |THENI$="|1200":GO|
|00002b10| 54 4f 36 38 35 0a 36 37 | 35 20 47 4f 54 4f 36 37 |TO685.67|5 GOTO67|
|00002b20| 31 0a 36 37 36 20 47 45 | 54 23 35 2c 41 24 3a 42 |1.676 GE|T#5,A$:B|
|00002b30| 24 3d 52 49 47 48 54 24 | 28 42 24 2c 32 35 34 29 |$=RIGHT$|(B$,254)|
|00002b40| 2b 41 24 3a 49 46 52 49 | 47 48 54 24 28 42 24 2c |+A$:IFRI|GHT$(B$,|
|00002b50| 32 29 3d 22 31 22 2b 52 | 24 54 48 45 4e 49 24 3d |2)="1"+R|$THENI$=|
|00002b60| 22 33 30 30 22 3a 47 4f | 54 4f 36 38 35 0a 36 37 |"300":GO|TO685.67|
|00002b70| 37 20 49 46 52 49 47 48 | 54 24 28 42 24 2c 32 29 |7 IFRIGH|T$(B$,2)|
|00002b80| 3d 22 35 22 2b 52 24 54 | 48 45 4e 49 24 3d 22 31 |="5"+R$T|HENI$="1|
|00002b90| 32 30 30 22 3a 47 4f 54 | 4f 36 38 35 0a 36 37 38 |200":GOT|O685.678|
|00002ba0| 20 49 46 52 49 47 48 54 | 24 28 42 24 2c 33 29 3d | IFRIGHT|$(B$,3)=|
|00002bb0| 22 31 30 22 2b 52 24 54 | 48 45 4e 49 24 3d 22 32 |"10"+R$T|HENI$="2|
|00002bc0| 34 30 30 22 3a 47 4f 54 | 4f 36 38 35 0a 36 37 39 |400":GOT|O685.679|
|00002bd0| 20 47 4f 54 4f 36 37 31 | 0a 36 38 35 20 47 4f 53 | GOTO671|.685 GOS|
|00002be0| 55 42 31 36 32 32 35 3a | 47 45 54 23 35 2c 41 24 |UB16225:|GET#5,A$|
|00002bf0| 3a 45 3d 54 49 3a 46 3d | 31 0a 36 38 36 20 49 46 |:E=TI:F=|1.686 IF|
|00002c00| 54 49 2d 45 3c 31 36 30 | 54 48 45 4e 36 38 36 0a |TI-E<160|THEN686.|
|00002c10| 36 39 34 20 41 24 3d 22 | 43 41 52 52 49 45 52 22 |694 A$="|CARRIER"|
|00002c20| 3a 47 4f 53 55 42 31 34 | 3a 46 4f 52 58 3d 31 54 |:GOSUB14|:FORX=1T|
|00002c30| 4f 31 30 30 3a 47 45 54 | 23 35 2c 41 24 3a 4e 45 |O100:GET|#5,A$:NE|
|00002c40| 58 54 3a 41 24 3d 22 d0 | 52 45 53 53 20 d2 c5 d4 |XT:A$=".|RESS ...|
|00002c50| d5 d2 ce 2f c5 ce d4 c5 | d2 00 0a 36 39 35 20 45 |.../....|...695 E|
|00002c60| 3d 54 49 3a 4f 3d 31 3a | 47 4f 53 55 42 32 34 3a |=TI:O=1:|GOSUB24:|
|00002c70| 47 4f 53 55 42 36 3a 49 | 46 5a 54 48 45 4e 32 36 |GOSUB6:I|FZTHEN26|
|00002c80| 33 0a 37 30 30 20 47 4f | 53 55 42 38 3a 46 57 3d |3.700 GO|SUB8:FW=|
|00002c90| 2e 3a 46 24 3d 22 43 52 | 45 44 49 54 53 22 3a 47 |.:F$="CR|EDITS":G|
|00002ca0| 4f 53 55 42 31 37 3a 47 | 4f 53 55 42 33 39 30 3a |OSUB17:G|OSUB390:|
|00002cb0| 49 46 5a 54 48 45 4e 32 | 36 33 0a 37 30 31 20 47 |IFZTHEN2|63.701 G|
|00002cc0| 4f 53 55 42 32 37 39 3a | 41 24 3d 22 02 cc 4f 47 |OSUB279:|A$="..OG|
|00002cd0| 20 49 4e 20 41 54 20 22 | 2b 4a 55 24 2b 22 4d 22 | IN AT "|+JU$+"M"|
|00002ce0| 3a 47 4f 53 55 42 32 0a | 37 30 32 20 53 43 3d 2e |:GOSUB2.|702 SC=.|
|00002cf0| 3a 4a 3d 2e 3a 45 3d 54 | 49 3a 4b 3d 54 49 3a 49 |:J=.:E=T|I:K=TI:I|
|00002d00| 46 42 4e 3e 32 54 48 45 | 4e 32 36 33 0a 37 30 33 |FBN>2THE|N263.703|
|00002d10| 20 41 24 3d 22 c5 4e 54 | 45 52 20 59 4f 55 52 a0 | A$=".NT|ER YOUR.|
|00002d20| 52 45 41 4c 20 4e 41 4d | 45 22 2b 52 24 2b 22 c6 |REAL NAM|E"+R$+".|
|00002d30| 49 52 53 54 20 ce 41 4d | 45 22 3a 49 46 4c 46 3d |IRST .AM|E":IFLF=|
|00002d40| 31 54 48 45 4e 41 24 3d | 22 c5 4e 54 45 52 20 59 |1THENA$=|".NTER Y|
|00002d50| 4f 55 52 20 c1 4c 49 41 | 53 00 0a 37 30 34 20 49 |OUR .LIA|S..704 I|
|00002d60| 46 4c 46 3d 32 54 48 45 | 4e 41 24 3d 22 c5 4e 54 |FLF=2THE|NA$=".NT|
|00002d70| 45 52 20 59 4f 55 52 20 | ce 41 4d 45 00 0a 37 30 |ER YOUR |.AME..70|
|00002d80| 35 20 4f 3d 32 35 3a 47 | 4f 53 55 42 32 34 3a 49 |5 O=25:G|OSUB24:I|
|00002d90| 46 5a 54 48 45 4e 32 36 | 33 0a 37 30 36 20 49 46 |FZTHEN26|3.706 IF|
|00002da0| 4a 39 3d 31 54 48 45 4e | 34 32 33 30 0a 37 30 37 |J9=1THEN|4230.707|
|00002db0| 20 49 46 49 24 3d 43 24 | 54 48 45 4e 37 31 32 0a | IFI$=C$|THEN712.|
|00002dc0| 37 30 38 20 47 4f 53 55 | 42 36 0a 37 30 39 20 4e |708 GOSU|B6.709 N|
|00002dd0| 24 3d 49 24 3a 49 46 4e | 24 3d 4a 24 4f 52 4c 46 |$=I$:IFN|$=J$ORLF|
|00002de0| 3e 2e 54 48 45 4e 37 31 | 34 0a 37 31 30 20 41 24 |>.THEN71|4.710 A$|
|00002df0| 3d 22 20 cc 41 53 54 20 | ce 41 4d 45 22 3a 4f 3d |=" .AST |.AME":O=|
|00002e00| 32 35 3a 47 4f 53 55 42 | 37 3a 49 46 5a 54 48 45 |25:GOSUB|7:IFZTHE|
|00002e10| 4e 32 36 33 0a 37 31 31 | 20 49 46 4a 39 3d 31 54 |N263.711| IFJ9=1T|
|00002e20| 48 45 4e 34 32 33 30 0a | 37 31 32 20 49 46 49 24 |HEN4230.|712 IFI$|
|00002e30| 3d 43 24 54 48 45 4e 41 | 24 3d 56 24 2b 22 ce 41 |=C$THENA|$=V$+".A|
|00002e40| 4d 45 22 3a 47 4f 53 55 | 42 32 3a 42 4e 3d 42 4e |ME":GOSU|B2:BN=BN|
|00002e50| 2b 31 3a 47 4f 54 4f 37 | 30 32 0a 37 31 33 20 47 |+1:GOTO7|02.713 G|
|00002e60| 4f 53 55 42 36 3a 4e 24 | 3d 4e 24 2b 22 20 22 2b |OSUB6:N$|=N$+" "+|
|00002e70| 49 24 0a 37 31 34 20 4c | 55 3d 4c 45 4e 28 4e 24 |I$.714 L|U=LEN(N$|
|00002e80| 29 3a 49 46 4c 55 3c 34 | 4f 52 4c 55 3e 32 35 54 |):IFLU<4|ORLU>25T|
|00002e90| 48 45 4e 41 24 3d 22 cc | 49 4d 49 54 20 34 20 54 |HENA$=".|IMIT 4 T|
|00002ea0| 4f 20 32 35 20 c3 48 41 | 52 41 43 54 45 52 53 22 |O 25 .HA|RACTERS"|
|00002eb0| 3a 47 4f 53 55 42 39 3a | 42 4e 3d 42 4e 2b 31 3a |:GOSUB9:|BN=BN+1:|
|00002ec0| 47 4f 54 4f 37 30 32 0a | 37 31 36 20 4a 4d 3d 2e |GOTO702.|716 JM=.|
|00002ed0| 3a 46 4f 52 57 35 3d 31 | 54 4f 4c 55 3a 41 24 3d |:FORW5=1|TOLU:A$=|
|00002ee0| 4d 49 44 24 28 4e 24 2c | 57 35 2c 31 29 3a 42 24 |MID$(N$,|W5,1):B$|
|00002ef0| 3d 4d 49 44 24 28 4e 24 | 2c 57 35 2b 31 2c 31 29 |=MID$(N$|,W5+1,1)|
|00002f00| 0a 37 31 37 20 49 46 28 | 41 24 3d 22 27 22 4f 52 |.717 IF(|A$="'"OR|
|00002f10| 41 24 3d 22 2d 22 4f 52 | 41 24 3d 22 20 22 29 41 |A$="-"OR|A$=" ")A|
|00002f20| 4e 44 28 42 24 3c 3e 22 | 20 22 41 4e 44 42 24 3c |ND(B$<>"| "ANDB$<|
|00002f30| 3e 22 22 29 54 48 45 4e | 37 31 39 0a 37 31 38 20 |>"")THEN|719.718 |
|00002f40| 49 46 41 24 3c 22 c1 22 | 4f 52 41 24 3e 22 da 22 |IFA$<"."|ORA$>"."|
|00002f50| 54 48 45 4e 49 24 3d 43 | 24 3a 4a 4d 3d 31 3a 57 |THENI$=C|$:JM=1:W|
|00002f60| 35 3d 4c 55 0a 37 31 39 | 20 4e 45 58 54 3a 49 46 |5=LU.719| NEXT:IF|
|00002f70| 4a 4d 54 48 45 4e 37 31 | 32 0a 37 32 30 20 47 4f |JMTHEN71|2.720 GO|
|00002f80| 53 55 42 39 34 3a 41 24 | 3d 22 2a 22 2b 4c 45 46 |SUB94:A$|="*"+LEF|
|00002f90| 54 24 28 4e 24 2c 32 33 | 29 0a 37 32 31 20 47 4f |T$(N$,23|).721 GO|
|00002fa0| 53 55 42 31 34 3a 50 4f | 4b 45 31 30 32 33 2c 31 |SUB14:PO|KE1023,1|
|00002fb0| 3a 57 35 3d 2e 3a 46 4f | 52 58 3d 4c 45 4e 28 41 |:W5=.:FO|RX=LEN(A|
|00002fc0| 24 29 2b 39 37 31 54 4f | 39 39 35 3a 50 4f 4b 45 |$)+971TO|995:POKE|
|00002fd0| 58 2c 33 32 3a 4e 45 58 | 54 3a 47 4f 54 4f 32 30 |X,32:NEX|T:GOTO20|
|00002fe0| 30 30 30 0a 37 32 32 20 | 57 44 3d 33 38 3a 50 4f |000.722 |WD=38:PO|
|00002ff0| 4b 45 36 38 37 2c 57 44 | 0a 37 32 33 20 43 53 3d |KE687,WD|.723 CS=|
|00003000| 42 3a 46 4f 52 58 3d 2e | 54 4f 4d 47 3a 4d 4e 24 |B:FORX=.|TOMG:MN$|
|00003010| 28 58 29 3d 53 59 24 28 | 58 29 3a 4d 4e 28 58 29 |(X)=SY$(|X):MN(X)|
|00003020| 3d 56 41 4c 28 53 59 24 | 28 58 29 29 3a 4e 45 58 |=VAL(SY$|(X)):NEX|
|00003030| 54 3a 49 24 3d 50 53 24 | 3a 47 4f 53 55 42 36 3a |T:I$=PS$|:GOSUB6:|
|00003040| 43 57 24 3d 49 24 3a 54 | 30 3d 42 0a 37 32 34 20 |CW$=I$:T|0=B.724 |
|00003050| 46 57 3d 32 30 3a 4f 43 | 3d 42 3a 41 43 3d 42 3a |FW=20:OC|=B:AC=B:|
|00003060| 53 43 3d 31 3a 43 4e 3d | 2e 3a 50 3d 31 3a 4d 4e |SC=1:CN=|.:P=1:MN|
|00003070| 24 3d 53 59 24 28 2e 29 | 3a 4d 4e 3d 56 41 4c 28 |$=SY$(.)|:MN=VAL(|
|00003080| 53 59 24 28 2e 29 29 3a | 52 4e 3d 56 41 4c 28 52 |SY$(.)):|RN=VAL(R|
|00003090| 34 24 28 2e 29 29 0a 37 | 32 35 20 41 24 3d 22 02 |4$(.)).7|25 A$=".|
|000030a0| cc 41 53 54 20 cf 4e 3a | 20 22 2b 4b 24 3a 47 4f |.AST .N:| "+K$:GO|
|000030b0| 53 55 42 32 3a 46 4f 52 | 57 58 3d 31 54 4f 33 3a |SUB2:FOR|WX=1TO3:|
|000030c0| 50 4f 4b 45 37 30 30 2c | 31 3a 41 24 3d 57 50 24 |POKE700,|1:A$=WP$|
|000030d0| 3a 4a 3d 31 3a 4c 4a 3d | 31 3a 4f 3d 36 3a 47 4f |:J=1:LJ=|1:O=6:GO|
|000030e0| 53 55 42 32 34 3a 49 46 | 5a 54 48 45 4e 37 33 30 |SUB24:IF|ZTHEN730|
|000030f0| 0a 37 32 36 20 50 4f 4b | 45 37 30 30 2c 2e 3a 47 |.726 POK|E700,.:G|
|00003100| 4f 53 55 42 36 3a 41 50 | 24 3d 49 24 3a 49 46 4e |OSUB6:AP|$=I$:IFN|
|00003110| 24 3c 3e 4a 24 41 4e 44 | 4c 45 4e 28 49 24 29 3e |$<>J$AND|LEN(I$)>|
|00003120| 31 41 4e 44 4c 45 4e 28 | 49 24 29 3c 36 54 48 45 |1ANDLEN(|I$)<6THE|
|00003130| 4e 41 50 24 3d 4c 45 46 | 54 24 28 49 24 2b 22 20 |NAP$=LEF|T$(I$+" |
|00003140| 20 20 20 20 22 2c 36 29 | 0a 37 32 37 20 49 46 41 | ",6)|.727 IFA|
|00003150| 50 24 3d 43 57 24 54 48 | 45 4e 41 24 3d 4e 24 3a |P$=CW$TH|ENA$=N$:|
|00003160| 47 4f 53 55 42 31 34 3a | 45 3d 54 49 3a 41 24 3d |GOSUB14:|E=TI:A$=|
|00003170| 57 50 24 2b 22 20 c1 43 | 43 45 50 54 45 44 22 3a |WP$+" .C|CEPTED":|
|00003180| 57 58 3d 33 3a 4e 45 58 | 54 3a 57 58 3d 2e 3a 47 |WX=3:NEX|T:WX=.:G|
|00003190| 4f 53 55 42 39 3a 47 4f | 54 4f 37 33 32 0a 37 32 |OSUB9:GO|TO732.72|
|000031a0| 38 20 49 46 4e 24 3d 4a | 24 54 48 45 4e 37 33 30 |8 IFN$=J|$THEN730|
|000031b0| 0a 37 32 39 20 41 24 3d | 56 24 2b 57 50 24 3a 47 |.729 A$=|V$+WP$:G|
|000031c0| 4f 53 55 42 32 3a 4e 45 | 58 54 3a 45 3d 54 49 3a |OSUB2:NE|XT:E=TI:|
|000031d0| 41 24 3d 22 c1 43 43 45 | 53 53 20 44 45 4e 49 45 |A$=".CCE|SS DENIE|
|000031e0| 44 2e 22 3a 47 4f 53 55 | 42 39 0a 37 33 30 20 5a |D.":GOSU|B9.730 Z|
|000031f0| 32 3d 31 3a 4e 24 3d 22 | 2a 22 2b 4c 45 46 54 24 |2=1:N$="|*"+LEFT$|
|00003200| 28 4e 24 2c 32 34 29 0a | 37 33 32 20 49 46 4f 4c |(N$,24).|732 IFOL|
|00003210| 24 3d 4e 24 41 4e 44 5a | 32 3d 2e 41 4e 44 55 32 |$=N$ANDZ|2=.ANDU2|
|00003220| 54 48 45 4e 41 24 3d 22 | d9 4f 55 20 57 45 52 45 |THENA$="|.OU WERE|
|00003230| 20 54 48 45 20 4c 41 53 | 54 20 4f 4e 2e 20 c3 41 | THE LAS|T ON. .A|
|00003240| 4c 4c 20 4c 41 54 45 52 | 2e 22 3a 47 4f 53 55 42 |LL LATER|.":GOSUB|
|00003250| 39 3a 5a 32 3d 31 0a 37 | 33 33 20 42 4e 3d 2e 3a |9:Z2=1.7|33 BN=.:|
|00003260| 49 46 5a 32 4f 52 4b 32 | 54 48 45 4e 32 36 32 0a |IFZ2ORK2|THEN262.|
|00003270| 37 33 34 20 47 4f 54 4f | 37 34 30 0a 37 33 35 20 |734 GOTO|740.735 |
|00003280| 41 24 3d 22 02 c4 4f 45 | 53 20 59 4f 55 52 20 54 |A$="..OE|S YOUR T|
|00003290| 45 52 4d 20 53 55 50 50 | 4f 52 54 20 c1 ce d3 c9 |ERM SUPP|ORT ....|
|000032a0| 3f 20 03 22 3a 47 4f 53 | 55 42 32 3a 47 4f 53 55 |? .":GOS|UB2:GOSU|
|000032b0| 42 33 31 3a 49 46 44 54 | 48 45 4e 55 33 3d 31 3a |B31:IFDT|HENU3=1:|
|000032c0| 50 4f 4b 45 37 34 38 2c | 31 0a 37 33 36 20 57 44 |POKE748,|1.736 WD|
|000032d0| 3d 2e 3a 49 24 3d 22 22 | 3a 47 4f 53 55 42 31 36 |=.:I$=""|:GOSUB16|
|000032e0| 33 31 30 3a 49 46 5a 54 | 48 45 4e 32 36 32 0a 37 |310:IFZT|HEN262.7|
|000032f0| 33 37 20 49 46 57 44 3d | 2e 54 48 45 4e 37 33 36 |37 IFWD=|.THEN736|
|00003300| 0a 37 33 38 20 50 4f 4b | 45 36 38 37 2c 57 44 3a |.738 POK|E687,WD:|
|00003310| 46 24 3d 22 57 45 4c 43 | 4f 4d 45 22 3a 47 4f 53 |F$="WELC|OME":GOS|
|00003320| 55 42 31 37 3a 49 46 57 | 4f 52 49 24 3d 22 ce 22 |UB17:IFW|ORI$="."|
|00003330| 4f 52 5a 4f 52 43 53 3c | 2e 54 48 45 4e 32 36 32 |ORZORCS<|.THEN262|
|00003340| 0a 37 33 39 20 47 42 3d | 31 3a 47 4f 53 55 42 36 |.739 GB=|1:GOSUB6|
|00003350| 34 3a 47 42 3d 2e 3a 49 | 46 5a 54 48 45 4e 32 36 |4:GB=.:I|FZTHEN26|
|00003360| 32 0a 37 34 30 20 4a 4d | 3d 2e 3a 46 24 3d 22 49 |2.740 JM|=.:F$="I|
|00003370| 4e 54 52 4f 22 3a 47 4f | 53 55 42 31 37 3a 49 46 |NTRO":GO|SUB17:IF|
|00003380| 52 4e 3c 3d 43 4f 41 4e | 44 57 3d 2e 41 4e 44 49 |RN<=COAN|DW=.ANDI|
|00003390| 24 3c 3e 22 ce 22 54 48 | 45 4e 47 42 3d 31 3a 47 |$<>"."TH|ENGB=1:G|
|000033a0| 4f 53 55 42 36 34 3a 47 | 42 3d 2e 0a 37 34 31 20 |OSUB64:G|B=..741 |
|000033b0| 47 4f 53 55 42 38 3a 49 | 46 4e 3d 2e 54 48 45 4e |GOSUB8:I|FN=.THEN|
|000033c0| 37 35 34 0a 37 34 35 20 | 41 3d 2e 3a 46 4f 52 58 |754.745 |A=.:FORX|
|000033d0| 3d 2e 54 4f 4d 47 3a 41 | 3d 41 2b 56 41 4c 28 41 |=.TOMG:A|=A+VAL(A|
|000033e0| 4c 24 28 58 29 29 3a 4e | 45 58 54 3a 41 24 3d 22 |L$(X)):N|EXT:A$="|
|000033f0| 1b 5b 30 4d cd 45 53 53 | 41 47 45 53 3a 1b 5b 33 |.[0M.ESS|AGES:.[3|
|00003400| 33 3b 31 4d 22 2b 53 54 | 52 24 28 41 29 2b 52 24 |3;1M"+ST|R$(A)+R$|
|00003410| 3a 47 4f 53 55 42 32 0a | 37 34 37 20 41 24 3d 22 |:GOSUB2.|747 A$="|
|00003420| 1b 5b 30 4d c2 41 53 45 | 20 22 2b 47 4d 24 2b 22 |.[0M.ASE| "+GM$+"|
|00003430| 3a 22 2b 53 54 52 24 28 | 4e 29 2b 22 20 28 d2 45 |:"+STR$(|N)+" (.E|
|00003440| 46 3a 22 2b 53 54 52 24 | 28 52 2d 4e 2b 31 29 2b |F:"+STR$|(R-N+1)+|
|00003450| 22 20 2d 22 2b 53 54 52 | 24 28 52 29 2b 22 29 00 |" -"+STR|$(R)+").|
|00003460| 0a 37 34 38 20 49 46 47 | 42 54 48 45 4e 52 45 54 |.748 IFG|BTHENRET|
|00003470| 55 52 4e 0a 37 34 39 20 | 46 43 3d 31 30 3a 46 4f |URN.749 |FC=10:FO|
|00003480| 52 58 3d 2e 54 4f 4d 47 | 3a 4a 4d 3d 4a 4d 2b 4d |RX=.TOMG|:JM=JM+M|
|00003490| 4e 28 58 29 3a 4e 45 58 | 54 3a 47 4f 53 55 42 32 |N(X):NEX|T:GOSUB2|
|000034a0| 0a 37 35 30 20 41 24 3d | 22 02 d4 4f 54 41 4c 20 |.750 A$=|"..OTAL |
|000034b0| cd 41 49 4c 20 54 4f 20 | d9 4f 55 3a 1b 5b 33 31 |.AIL TO |.OU:.[31|
|000034c0| 4d 22 2b 53 54 52 24 28 | 4a 4d 29 2b 22 1b 5b 30 |M"+STR$(|JM)+".[0|
|000034d0| 4d 22 3a 47 4f 53 55 42 | 32 3a 52 54 3d 4a 4d 3a |M":GOSUB|2:RT=JM:|
|000034e0| 49 46 4a 4d 3d 2e 54 48 | 45 4e 37 35 34 0a 37 35 |IFJM=.TH|EN754.75|
|000034f0| 31 20 47 4f 53 55 42 38 | 3a 46 43 3d 31 31 0a 37 |1 GOSUB8|:FC=11.7|
|00003500| 35 32 20 46 4f 52 58 3d | 2e 54 4f 4d 47 3a 49 46 |52 FORX=|.TOMG:IF|
|00003510| 4d 4e 28 58 29 54 48 45 | 4e 41 24 3d 22 c2 41 53 |MN(X)THE|NA$=".AS|
|00003520| 45 22 2b 53 54 52 24 28 | 58 29 2b 22 20 cd 41 49 |E"+STR$(|X)+" .AI|
|00003530| 4c 3a 22 2b 53 54 52 24 | 28 4d 4e 28 58 29 29 3a |L:"+STR$|(MN(X)):|
|00003540| 47 4f 53 55 42 32 3a 46 | 43 3d 46 43 2b 31 0a 37 |GOSUB2:F|C=FC+1.7|
|00003550| 35 33 20 4e 45 58 54 0a | 37 35 34 20 41 24 3d 22 |53 NEXT.|754 A$="|
|00003560| 02 d9 4f 55 27 52 45 20 | 43 41 4c 4c 45 52 20 23 |..OU'RE |CALLER #|
|00003570| 1b 5b 33 37 3b 31 4d 22 | 2b 53 54 52 24 28 59 56 |.[37;1M"|+STR$(YV|
|00003580| 29 3a 47 4f 53 55 42 32 | 0a 37 35 36 20 47 4f 53 |):GOSUB2|.756 GOS|
|00003590| 55 42 39 33 3a 45 3d 54 | 49 3a 47 4f 53 55 42 37 |UB93:E=T|I:GOSUB7|
|000035a0| 35 3a 45 3d 54 49 3a 47 | 4f 53 55 42 38 31 3a 55 |5:E=TI:G|OSUB81:U|
|000035b0| 3d 38 3a 44 44 24 3d 22 | 30 3a 22 3a 43 35 3d 43 |=8:DD$="|0:":C5=C|
|000035c0| 53 3a 4c 31 3d 43 4e 3a | 51 38 3d 46 57 0a 37 35 |S:L1=CN:|Q8=FW.75|
|000035d0| 38 20 41 24 3d 22 02 1b | 5b 30 4d d3 54 41 54 55 |8 A$="..|[0M.TATU|
|000035e0| 53 3a 1b 5b 33 32 3b 31 | 4d 20 22 3a 4a 31 24 3d |S:.[32;1|M ":J1$=|
|000035f0| 22 cd 45 4d 42 45 52 2c | 22 2b 53 54 52 24 28 45 |".EMBER,|"+STR$(E|
|00003600| 5a 29 3a 49 46 4c 56 54 | 48 45 4e 4a 31 24 3d 22 |Z):IFLVT|HENJ1$="|
|00003610| c7 55 45 53 54 2c 20 38 | 00 0a 37 35 39 20 49 46 |.UEST, 8|..759 IF|
|00003620| 53 43 54 48 45 4e 41 24 | 3d 41 24 2b 22 2a 20 d3 |SCTHENA$|=A$+"* .|
|00003630| 59 53 4f 50 20 2a 22 3a | 47 4f 54 4f 37 36 31 0a |YSOP *":|GOTO761.|
|00003640| 37 36 30 20 41 24 3d 41 | 24 2b 4a 31 24 2b 22 20 |760 A$=A|$+J1$+" |
|00003650| 4d 49 4e 55 54 45 20 4c | 49 4d 49 54 00 0a 37 36 |MINUTE L|IMIT..76|
|00003660| 31 20 47 4f 53 55 42 32 | 3a 4a 31 24 3d 22 22 3a |1 GOSUB2|:J1$="":|
|00003670| 46 24 3d 22 42 2d c2 30 | 22 3a 47 4f 53 55 42 32 |F$="B-.0|":GOSUB2|
|00003680| 32 34 30 0a 37 36 32 20 | 49 46 55 31 3d 2e 54 48 |240.762 |IFU1=.TH|
|00003690| 45 4e 37 36 37 0a 37 36 | 33 20 47 4f 53 55 42 34 |EN767.76|3 GOSUB4|
|000036a0| 31 3a 4f 50 45 4e 32 2c | 38 2c 32 2c 22 30 3a 4c |1:OPEN2,|8,2,"0:L|
|000036b0| 4d 22 3a 49 4e 50 55 54 | 23 31 2c 41 2c 43 31 24 |M":INPUT|#1,A,C1$|
|000036c0| 2c 43 31 2c 43 31 3a 49 | 46 41 54 48 45 4e 37 36 |,C1,C1:I|FATHEN76|
|000036d0| 35 0a 37 36 34 20 49 4e | 50 55 54 23 32 2c 41 24 |5.764 IN|PUT#2,A$|
|000036e0| 3a 49 46 41 24 3d 4e 24 | 54 48 45 4e 31 33 35 30 |:IFA$=N$|THEN1350|
|000036f0| 30 0a 37 36 35 20 47 4f | 53 55 42 31 3a 55 31 3d |0.765 GO|SUB1:U1=|
|00003700| 2e 0a 37 36 37 20 49 46 | 4c 56 3d 2e 54 48 45 4e |..767 IF|LV=.THEN|
|00003710| 53 59 53 34 39 32 33 30 | 3a 57 54 3d 31 30 38 30 |SYS49230|:WT=1080|
|00003720| 30 3a 47 4f 53 55 42 36 | 32 30 30 3a 41 24 3d 22 |0:GOSUB6|200:A$="|
|00003730| 02 1b 5b 30 4d d2 45 41 | 44 20 ce 45 57 20 cd 45 |..[0M.EA|D .EW .E|
|00003740| 53 53 41 47 45 53 3f 20 | 03 22 3a 47 4f 53 55 42 |SSAGES? |.":GOSUB|
|00003750| 32 3a 47 4f 53 55 42 33 | 31 0a 37 36 38 20 49 46 |2:GOSUB3|1.768 IF|
|00003760| 44 41 4e 44 5a 3d 2e 41 | 4e 44 4c 56 3d 2e 54 48 |DANDZ=.A|NDLV=.TH|
|00003770| 45 4e 49 24 3d 22 ce c1 | 22 3a 47 4f 54 4f 37 38 |ENI$="..|":GOTO78|
|00003780| 36 0a 37 36 39 20 49 46 | 52 54 54 48 45 4e 41 24 |6.769 IF|RTTHENA$|
|00003790| 3d 22 02 d2 45 41 44 20 | d9 cf d5 d2 20 cd 41 49 |="..EAD |.... .AI|
|000037a0| 4c 3f 20 03 22 3a 47 4f | 53 55 42 32 3a 47 4f 53 |L? .":GO|SUB2:GOS|
|000037b0| 55 42 33 31 3a 49 46 44 | 41 4e 44 5a 3d 2e 54 48 |UB31:IFD|ANDZ=.TH|
|000037c0| 45 4e 49 24 3d 22 cd c1 | c9 cc 22 3a 47 4f 54 4f |ENI$="..|..":GOTO|
|000037d0| 37 38 36 0a 37 37 30 20 | 53 59 53 34 39 32 33 30 |786.770 |SYS49230|
|000037e0| 3a 50 4f 4b 45 36 38 37 | 2c 57 44 3a 41 24 3d 4e |:POKE687|,WD:A$=N|
|000037f0| 24 3a 47 4f 53 55 42 31 | 34 3a 4a 3d 2e 3a 57 54 |$:GOSUB1|4:J=.:WT|
|00003800| 3d 31 30 38 30 30 3a 43 | 53 3d 43 35 3a 43 4e 3d |=10800:C|S=C5:CN=|
|00003810| 4c 31 3a 46 57 3d 51 38 | 3a 44 30 24 3d 22 22 0a |L1:FW=Q8|:D0$="".|
|00003820| 37 37 31 20 42 4d 3d 2e | 3a 54 41 3d 2e 3a 4a 31 |771 BM=.|:TA=.:J1|
|00003830| 3d 2e 3a 46 43 3d 2e 3a | 4d 53 3d 2e 3a 4a 38 3d |=.:FC=.:|MS=.:J8=|
|00003840| 2e 3a 42 53 3d 2e 3a 55 | 50 3d 2e 3a 49 46 5a 54 |.:BS=.:U|P=.:IFZT|
|00003850| 48 45 4e 38 36 35 0a 37 | 37 32 20 50 4f 4b 45 37 |HEN865.7|72 POKE7|
|00003860| 30 30 2c 2e 3a 50 4f 4b | 45 31 30 32 33 2c 31 3a |00,.:POK|E1023,1:|
|00003870| 47 4f 53 55 42 36 32 30 | 30 3a 49 46 5a 31 54 48 |GOSUB620|0:IFZ1TH|
|00003880| 45 4e 39 35 0a 37 37 36 | 20 41 24 3d 43 4f 24 28 |EN95.776| A$=CO$(|
|00003890| 33 29 2b 47 4d 24 2b 22 | 3a c3 4f 4d 4d 41 4e 44 |3)+GM$+"|:.OMMAND|
|000038a0| 20 3e 20 03 22 3a 49 46 | 50 54 48 45 4e 41 24 3d | > .":IF|PTHENA$=|
|000038b0| 43 4f 24 28 33 29 2b 47 | 4d 24 2b 22 3a c3 3e 20 |CO$(3)+G|M$+":.> |
|000038c0| 03 00 0a 37 38 30 20 47 | 4f 53 55 42 39 3a 53 59 |...780 G|OSUB9:SY|
|000038d0| 53 34 39 32 33 30 3a 49 | 46 44 58 54 48 45 4e 4c |S49230:I|FDXTHENL|
|000038e0| 4a 3d 2e 3a 50 4f 4b 45 | 37 30 34 2c 2e 0a 37 38 |J=.:POKE|704,..78|
|000038f0| 32 20 4f 3d 36 37 3a 47 | 4f 53 55 42 34 3a 49 46 |2 O=67:G|OSUB4:IF|
|00003900| 5a 4f 52 49 24 3d 22 ff | 22 54 48 45 4e 33 0a 37 |ZORI$=".|"THEN3.7|
|00003910| 38 36 20 4f 4e 2d 28 4a | 39 3d 31 29 47 4f 54 4f |86 ON-(J|9=1)GOTO|
|00003920| 34 32 33 30 3a 47 4f 53 | 55 42 36 3a 41 24 3d 4c |4230:GOS|UB6:A$=L|
|00003930| 45 46 54 24 28 49 24 2c | 34 29 3a 49 46 4c 45 46 |EFT$(I$,|4):IFLEF|
|00003940| 54 24 28 49 24 2c 31 29 | 3d 22 d6 22 54 48 45 4e |T$(I$,1)|="."THEN|
|00003950| 39 32 33 0a 37 38 37 20 | 49 46 41 24 3d 22 c6 d2 |923.787 |IFA$="..|
|00003960| cf cd 22 54 48 45 4e 44 | 53 3d 31 3a 49 3d 56 41 |.."THEND|S=1:I=VA|
|00003970| 4c 28 4d 49 44 24 28 49 | 24 2c 35 29 29 3a 47 4f |L(MID$(I|$,5)):GO|
|00003980| 54 4f 31 39 35 33 30 0a | 37 38 38 20 49 46 41 24 |TO19530.|788 IFA$|
|00003990| 3d 22 c6 cc cf d7 22 4f | 52 41 24 3d 22 cd cf d2 |="...."O|RA$="...|
|000039a0| c5 22 54 48 45 4e 38 37 | 30 30 0a 37 38 39 20 49 |."THEN87|00.789 I|
|000039b0| 46 4c 45 46 54 24 28 49 | 24 2c 31 29 3d 22 d2 22 |FLEFT$(I|$,1)="."|
|000039c0| 4f 52 4c 45 46 54 24 28 | 49 24 2c 31 29 3d 22 c6 |ORLEFT$(|I$,1)=".|
|000039d0| 22 54 48 45 4e 31 37 30 | 30 30 0a 37 39 30 20 49 |"THEN170|00.790 I|
|000039e0| 46 41 24 3d 22 c3 cf ce | d4 22 54 48 45 4e 43 4e |FA$="...|."THENCN|
|000039f0| 3d 31 2d 43 4e 3a 41 24 | 3d 52 49 47 48 54 24 28 |=1-CN:A$|=RIGHT$(|
|00003a00| 22 ce 4f 4e 2d 22 2c 28 | 31 2d 43 4e 29 2a 34 29 |".ON-",(|1-CN)*4)|
|00003a10| 2b 22 c3 4f 4e 54 49 4e | 55 4f 55 53 22 3a 4c 31 |+".ONTIN|UOUS":L1|
|00003a20| 3d 43 4e 3a 47 4f 54 4f | 31 32 0a 37 39 31 20 49 |=CN:GOTO|12.791 I|
|00003a30| 46 49 24 3d 22 ce c5 d8 | d4 22 54 48 45 4e 49 24 |FI$="...|."THENI$|
|00003a40| 3d 4d 5a 24 3a 47 4f 54 | 4f 37 38 39 0a 37 39 32 |=MZ$:GOT|O789.792|
|00003a50| 20 49 46 41 24 3d 22 c3 | c8 c1 d4 22 4f 52 49 24 | IFA$=".|..."ORI$|
|00003a60| 3d 22 c3 22 54 48 45 4e | 39 31 39 0a 37 39 33 20 |="."THEN|919.793 |
|00003a70| 49 46 41 24 3d 22 c1 ce | d3 c9 22 54 48 45 4e 55 |IFA$="..|.."THENU|
|00003a80| 33 3d 31 2d 55 33 3a 41 | 24 3d 22 1b 5b 30 4d 22 |3=1-U3:A|$=".[0M"|
|00003a90| 2b 4d 49 44 24 28 22 cf | 46 46 cf 4e 20 22 2c 33 |+MID$(".|FF.N ",3|
|00003aa0| 2a 55 33 2b 31 2c 33 29 | 3a 50 4f 4b 45 37 34 38 |*U3+1,3)|:POKE748|
|00003ab0| 2c 55 33 3a 47 4f 54 4f | 31 32 0a 37 39 34 20 49 |,U3:GOTO|12.794 I|
|00003ac0| 46 49 24 3d 22 c4 22 54 | 48 45 4e 4c 4a 3d 31 2d |FI$="."T|HENLJ=1-|
|00003ad0| 4c 4a 3a 44 58 3d 31 2d | 44 58 3a 50 4f 4b 45 37 |LJ:DX=1-|DX:POKE7|
|00003ae0| 30 34 2c 4c 4a 3a 41 24 | 3d 4d 49 44 24 28 22 c8 |04,LJ:A$|=MID$(".|
|00003af0| 41 4c 46 c6 55 4c 4c 22 | 2c 44 58 2a 34 2b 31 2c |ALF.ULL"|,DX*4+1,|
|00003b00| 34 29 2b 22 20 c4 55 50 | 4c 45 58 22 3a 47 4f 54 |4)+" .UP|LEX":GOT|
|00003b10| 4f 31 32 0a 37 39 35 20 | 49 46 49 24 3d 22 3f 22 |O12.795 |IFI$="?"|
|00003b20| 4f 52 49 24 3d 22 c8 22 | 54 48 45 4e 47 4f 53 55 |ORI$="."|THENGOSU|
|00003b30| 42 39 36 3a 46 24 3d 22 | 48 45 4c 50 22 2b 4c 45 |B96:F$="|HELP"+LE|
|00003b40| 46 54 24 28 22 4e 22 2c | 4c 56 29 3a 47 4f 53 55 |FT$("N",|LV):GOSU|
|00003b50| 42 31 37 3a 47 4f 54 4f | 33 0a 37 39 36 20 49 46 |B17:GOTO|3.796 IF|
|00003b60| 49 24 3d 22 cf c2 22 54 | 48 45 4e 46 24 3d 22 42 |I$=".."T|HENF$="B|
|00003b70| 2d c2 22 2b 47 4d 24 3a | 4f 3d 52 4e 3a 52 4e 3d |-."+GM$:|O=RN:RN=|
|00003b80| 2e 3a 47 4f 53 55 42 32 | 32 34 30 3a 52 4e 3d 4f |.:GOSUB2|240:RN=O|
|00003b90| 3a 47 4f 54 4f 33 0a 37 | 39 39 20 49 46 41 24 3d |:GOTO3.7|99 IFA$=|
|00003ba0| 22 c4 c5 cc c5 22 54 48 | 45 4e 50 4f 4b 45 37 30 |"...."TH|ENPOKE70|
|00003bb0| 31 2c 31 2d 50 45 45 4b | 28 37 30 31 29 3a 41 24 |1,1-PEEK|(701):A$|
|00003bc0| 3d 22 c4 45 53 54 52 55 | 43 54 20 22 2b 4d 49 44 |=".ESTRU|CT "+MID|
|00003bd0| 24 28 22 cf 46 46 cf 4e | 20 22 2c 33 2a 50 45 45 |$(".FF.N| ",3*PEE|
|00003be0| 4b 28 37 30 31 29 2b 31 | 2c 33 29 3a 47 4f 54 4f |K(701)+1|,3):GOTO|
|00003bf0| 31 32 0a 38 30 31 20 49 | 46 49 24 3d 22 d8 22 54 |12.801 I|FI$="."T|
|00003c00| 48 45 4e 50 3d 31 2d 50 | 3a 47 4f 54 4f 33 0a 38 |HENP=1-P|:GOTO3.8|
|00003c10| 30 32 20 49 46 49 24 3d | 22 c5 22 41 4e 44 4c 56 |02 IFI$=|"."ANDLV|
|00003c20| 54 48 45 4e 31 34 36 30 | 30 0a 38 30 33 20 49 46 |THEN1460|0.803 IF|
|00003c30| 49 24 3d 22 c5 22 54 48 | 45 4e 31 34 30 30 30 0a |I$="."TH|EN14000.|
|00003c40| 38 30 35 20 49 46 41 24 | 3d 22 d3 c3 c1 d4 22 54 |805 IFA$|="...."T|
|00003c50| 48 45 4e 31 39 35 35 30 | 0a 38 30 37 20 49 46 41 |HEN19550|.807 IFA|
|00003c60| 24 3d 22 d3 d4 cf 22 54 | 48 45 4e 44 53 3d 2e 3a |$="..."T|HENDS=.:|
|00003c70| 49 3d 56 41 4c 28 4d 49 | 44 24 28 49 24 2c 34 29 |I=VAL(MI|D$(I$,4)|
|00003c80| 29 3a 47 4f 54 4f 31 39 | 35 33 30 0a 38 30 38 20 |):GOTO19|530.808 |
|00003c90| 49 46 4c 45 46 54 24 28 | 49 24 2c 31 29 3d 22 d3 |IFLEFT$(|I$,1)=".|
|00003ca0| 22 54 48 45 4e 44 53 3d | 2d 31 3a 47 4f 54 4f 31 |"THENDS=|-1:GOTO1|
|00003cb0| 38 35 30 30 0a 38 31 30 | 20 49 46 49 24 3d 22 d4 |8500.810| IFI$=".|
|00003cc0| 22 54 48 45 4e 35 30 30 | 30 0a 38 31 32 20 49 46 |"THEN500|0.812 IF|
|00003cd0| 4c 45 46 54 24 28 49 24 | 2c 31 29 3d 22 d7 22 54 |LEFT$(I$|,1)="."T|
|00003ce0| 48 45 4e 49 24 3d 4d 49 | 44 24 28 49 24 2c 32 29 |HENI$=MI|D$(I$,2)|
|00003cf0| 3a 47 4f 53 55 42 31 36 | 33 31 30 3a 47 4f 54 4f |:GOSUB16|310:GOTO|
|00003d00| 33 0a 38 31 33 20 49 46 | 4c 56 54 48 45 4e 38 33 |3.813 IF|LVTHEN83|
|00003d10| 36 0a 38 31 35 20 49 46 | 4c 45 46 54 24 28 49 24 |6.815 IF|LEFT$(I$|
|00003d20| 2c 32 29 3d 22 ce c1 22 | 54 48 45 4e 4e 41 3d 47 |,2)=".."|THENNA=G|
|00003d30| 4d 2b 31 3a 49 24 3d 47 | 4d 24 3a 47 4f 54 4f 31 |M+1:I$=G|M$:GOTO1|
|00003d40| 35 30 39 0a 38 31 36 20 | 49 46 41 24 3d 22 c3 c8 |509.816 |IFA$="..|
|00003d50| c1 d2 22 54 48 45 4e 39 | 33 30 0a 38 31 37 20 49 |.."THEN9|30.817 I|
|00003d60| 46 49 24 3d 22 d5 cd 22 | 54 48 45 4e 55 50 3d 31 |FI$=".."|THENUP=1|
|00003d70| 3a 47 4f 54 4f 31 34 30 | 30 30 0a 38 31 38 20 49 |:GOTO140|00.818 I|
|00003d80| 46 4c 45 46 54 24 28 49 | 24 2c 32 29 3d 22 ce c3 |FLEFT$(I|$,2)="..|
|00003d90| 22 54 48 45 4e 4e 41 3d | 47 4d 2b 31 3a 49 24 3d |"THENNA=|GM+1:I$=|
|00003da0| 4d 5a 24 3a 47 4f 54 4f | 37 38 39 0a 38 31 39 20 |MZ$:GOTO|789.819 |
|00003db0| 49 46 49 24 3d 22 cd 22 | 54 48 45 4e 34 35 30 30 |IFI$="."|THEN4500|
|00003dc0| 0a 38 32 30 20 49 46 41 | 24 3d 22 c2 c1 d3 c5 22 |.820 IFA|$="...."|
|00003dd0| 4f 52 4c 45 46 54 24 28 | 49 24 2c 31 29 3d 22 c1 |ORLEFT$(|I$,1)=".|
|00003de0| 22 54 48 45 4e 31 35 30 | 30 0a 38 32 31 20 49 46 |"THEN150|0.821 IF|
|00003df0| 4c 45 46 54 24 28 49 24 | 2c 31 29 3d 22 ce 22 54 |LEFT$(I$|,1)="."T|
|00003e00| 48 45 4e 31 32 30 31 30 | 0a 38 32 33 20 49 46 41 |HEN12010|.823 IFA|
|00003e10| 24 3d 22 c2 cc c1 d3 22 | 54 48 45 4e 42 4d 3d 31 |$="...."|THENBM=1|
|00003e20| 3a 4c 31 3d 43 4e 3a 51 | 38 3d 46 57 3a 43 4e 3d |:L1=CN:Q|8=FW:CN=|
|00003e30| 31 3a 46 57 3d 2e 3a 49 | 24 3d 22 ce c1 22 3a 47 |1:FW=.:I|$="..":G|
|00003e40| 4f 54 4f 38 31 33 0a 38 | 32 34 20 49 46 41 24 3d |OTO813.8|24 IFA$=|
|00003e50| 22 cd c1 c9 cc 22 54 48 | 45 4e 42 4d 3d 32 3a 4e |"...."TH|ENBM=2:N|
|00003e60| 41 3d 31 3a 49 24 3d 22 | 30 22 3a 47 4f 54 4f 31 |A=1:I$="|0":GOTO1|
|00003e70| 35 30 39 0a 38 33 30 20 | 46 4f 52 58 3d 2e 54 4f |509.830 |FORX=.TO|
|00003e80| 4c 4b 3a 49 46 49 24 3d | 4c 4b 24 28 58 29 54 48 |LK:IFI$=|LK$(X)TH|
|00003e90| 45 4e 58 3d 4c 4b 3a 4e | 45 58 54 3a 47 4f 54 4f |ENX=LK:N|EXT:GOTO|
|00003ea0| 39 30 30 30 0a 38 33 31 | 20 4e 45 58 54 0a 38 33 |9000.831| NEXT.83|
|00003eb0| 36 20 49 46 49 24 3d 22 | d1 22 4f 52 49 24 3d 22 |6 IFI$="|."ORI$="|
|00003ec0| c2 d9 c5 22 54 48 45 4e | 38 36 30 0a 38 33 38 20 |..."THEN|860.838 |
|00003ed0| 49 46 49 24 3c 3e 22 c7 | 22 54 48 45 4e 41 24 3d |IFI$<>".|"THENA$=|
|00003ee0| 43 4f 24 28 2e 29 2b 22 | 01 3f 01 20 46 4f 52 20 |CO$(.)+"|.?. FOR |
|00003ef0| c8 45 4c 50 22 3a 47 4f | 54 4f 31 32 0a 38 35 34 |.ELP":GO|TO12.854|
|00003f00| 20 41 24 3d 22 02 1b 5b | 33 32 3b 31 4d cc 4f 47 | A$="..[|32;1M.OG|
|00003f10| 4f 46 46 2c 20 1b 5b 33 | 33 3b 31 4d 59 4f 55 20 |OFF, .[3|3;1MYOU |
|00003f20| 53 55 52 45 3f 20 03 22 | 3a 47 4f 53 55 42 32 3a |SURE? ."|:GOSUB2:|
|00003f30| 47 4f 53 55 42 33 31 3a | 49 46 44 3d 2e 41 4e 44 |GOSUB31:|IFD=.AND|
|00003f40| 5a 3d 2e 54 48 45 4e 33 | 0a 38 36 30 20 46 4f 52 |Z=.THEN3|.860 FOR|
|00003f50| 58 3d 2e 54 4f 37 3a 4d | 4e 24 28 58 29 3d 22 c0 |X=.TO7:M|N$(X)=".|
|00003f60| 22 3a 52 4e 28 58 29 3d | 56 41 4c 28 52 46 24 28 |":RN(X)=|VAL(RF$(|
|00003f70| 58 29 29 3a 4e 45 58 54 | 0a 38 36 35 20 50 4f 4b |X)):NEXT|.865 POK|
|00003f80| 45 35 34 32 39 36 2c 2e | 3a 4c 4f 24 3d 54 49 24 |E54296,.|:LO$=TI$|
|00003f90| 3a 47 4f 53 55 42 38 30 | 3a 47 4f 53 55 42 32 37 |:GOSUB80|:GOSUB27|
|00003fa0| 39 3a 49 46 4c 53 3d 2e | 54 48 45 4e 59 56 3d 59 |9:IFLS=.|THENYV=Y|
|00003fb0| 56 2b 31 0a 38 36 36 20 | 49 46 50 30 3d 2e 54 48 |V+1.866 |IFP0=.TH|
|00003fc0| 45 4e 41 24 3d 22 02 1b | 5b 30 4d cc 4f 47 4f 46 |ENA$="..|[0M.OGOF|
|00003fd0| 46 20 41 54 20 22 2b 4a | 55 24 2b 22 4d 22 2b 52 |F AT "+J|U$+"M"+R|
|00003fe0| 24 2b 22 03 22 3a 47 4f | 53 55 42 32 0a 38 36 37 |$+".":GO|SUB2.867|
|00003ff0| 20 49 46 50 30 3d 2e 54 | 48 45 4e 41 24 3d 43 4e | IFP0=.T|HENA$=CN|
|00004000| 24 2b 22 20 d4 49 4d 45 | 20 3d 20 22 2b 42 24 2b |$+" .IME| = "+B$+|
|00004010| 52 24 2b 52 24 2b 22 d0 | 4c 45 41 53 45 20 43 41 |R$+R$+".|LEASE CA|
|00004020| 4c 4c 20 41 47 41 49 4e | 2e 22 2b 52 24 2b 22 03 |LL AGAIN|."+R$+".|
|00004030| 22 3a 47 4f 53 55 42 32 | 0a 38 36 39 20 49 46 4d |":GOSUB2|.869 IFM|
|00004040| 54 3c 33 41 4e 44 4c 53 | 3d 2e 54 48 45 4e 41 24 |T<3ANDLS|=.THENA$|
|00004050| 3d 22 1b 1b 1b 22 3a 47 | 4f 53 55 42 32 32 3a 47 |="...":G|OSUB22:G|
|00004060| 4f 53 55 42 31 30 3a 41 | 24 3d 22 48 31 22 3a 47 |OSUB10:A|$="H1":G|
|00004070| 4f 53 55 42 32 32 0a 38 | 37 31 20 49 46 4e 24 3d |OSUB22.8|71 IFN$=|
|00004080| 4a 24 4f 52 4e 24 3d 43 | 47 24 54 48 45 4e 46 4f |J$ORN$=C|G$THENFO|
|00004090| 52 58 3d 2e 54 4f 4d 47 | 3a 53 59 24 28 58 29 3d |RX=.TOMG|:SY$(X)=|
|000040a0| 22 30 22 3a 52 34 3d 56 | 41 4c 28 52 46 24 28 58 |"0":R4=V|AL(RF$(X|
|000040b0| 29 29 2b 31 3a 52 34 24 | 28 58 29 3d 53 54 52 24 |))+1:R4$|(X)=STR$|
|000040c0| 28 52 34 29 3a 4e 45 58 | 54 0a 38 37 32 20 4f 4c |(R4):NEX|T.872 OL|
|000040d0| 24 3d 4e 24 3a 47 4f 53 | 55 42 34 37 30 3a 47 4f |$=N$:GOS|UB470:GO|
|000040e0| 53 55 42 38 37 33 3a 47 | 4f 53 55 42 39 30 30 3a |SUB873:G|OSUB900:|
|000040f0| 52 55 4e 0a 38 37 33 20 | 49 46 4e 24 3d 4a 24 4f |RUN.873 |IFN$=J$O|
|00004100| 52 4c 56 54 48 45 4e 52 | 45 54 55 52 4e 0a 38 37 |RLVTHENR|ETURN.87|
|00004110| 34 20 49 46 5a 41 4e 44 | 50 30 3d 2e 54 48 45 4e |4 IFZAND|P0=.THEN|
|00004120| 52 4e 28 47 4d 29 3d 52 | 4e 2d 31 0a 38 37 35 20 |RN(GM)=R|N-1.875 |
|00004130| 52 56 3d 49 4e 54 28 52 | 4e 28 2e 29 2f 34 30 39 |RV=INT(R|N(.)/409|
|00004140| 36 29 0a 38 37 36 20 52 | 48 3d 52 4e 28 2e 29 2d |6).876 R|H=RN(.)-|
|00004150| 52 56 2a 34 30 39 36 3a | 52 48 3d 49 4e 54 28 52 |RV*4096:|RH=INT(R|
|00004160| 48 2f 36 34 29 3a 52 4c | 3d 52 4e 28 30 29 2d 52 |H/64):RL|=RN(0)-R|
|00004170| 56 2a 34 30 39 36 2d 52 | 48 2a 36 34 3a 49 46 53 |V*4096-R|H*64:IFS|
|00004180| 31 54 48 45 4e 53 43 3d | 2e 0a 38 37 37 20 52 56 |1THENSC=|..877 RV|
|00004190| 3d 52 56 2b 31 39 32 3a | 52 48 3d 52 48 2b 31 39 |=RV+192:|RH=RH+19|
|000041a0| 32 3a 52 4c 3d 52 4c 2b | 31 39 32 3a 5a 54 3d 50 |2:RL=RL+|192:ZT=P|
|000041b0| 2b 43 4e 2a 32 2b 53 43 | 2a 34 2b 4e 35 2a 38 2b |+CN*2+SC|*4+N5*8+|
|000041c0| 55 31 2a 31 36 2b 55 32 | 2a 33 32 2b 55 33 2a 36 |U1*16+U2|*32+U3*6|
|000041d0| 34 2b 55 34 2a 31 32 38 | 0a 38 37 38 20 47 4f 53 |4+U4*128|.878 GOS|
|000041e0| 55 42 37 34 3a 5a 52 24 | 3d 4e 24 2b 4c 45 46 54 |UB74:ZR$|=N$+LEFT|
|000041f0| 24 28 58 5a 24 2c 36 29 | 2b 44 24 2b 43 48 52 24 |$(XZ$,6)|+D$+CHR$|
|00004200| 28 52 48 29 2b 43 48 52 | 24 28 52 4c 29 2b 43 48 |(RH)+CHR|$(RL)+CH|
|00004210| 52 24 28 5a 54 29 2b 4d | 4e 24 28 2e 29 2b 43 48 |R$(ZT)+M|N$(.)+CH|
|00004220| 52 24 28 52 56 29 3a 49 | 46 43 53 3e 42 54 48 45 |R$(RV):I|FCS>BTHE|
|00004230| 4e 43 53 3d 42 0a 38 37 | 39 20 5a 52 24 3d 5a 52 |NCS=B.87|9 ZR$=ZR|
|00004240| 24 2b 43 48 52 24 28 43 | 53 29 2b 43 48 52 24 28 |$+CHR$(C|S)+CHR$(|
|00004250| 57 44 29 2b 43 48 52 24 | 28 58 50 2b 33 32 2a 50 |WD)+CHR$|(XP+32*P|
|00004260| 45 45 4b 28 37 30 31 29 | 29 2b 43 48 52 24 28 46 |EEK(701)|)+CHR$(F|
|00004270| 57 29 2b 43 48 52 24 28 | 4f 43 29 2b 4b 33 24 2b |W)+CHR$(|OC)+K3$+|
|00004280| 4b 34 24 0a 38 38 30 20 | 5a 52 24 3d 5a 52 24 2b |K4$.880 |ZR$=ZR$+|
|00004290| 43 48 52 24 28 41 43 29 | 2b 43 48 52 24 28 54 30 |CHR$(AC)|+CHR$(T0|
|000042a0| 29 2b 43 4a 24 2b 43 48 | 52 24 28 43 4a 29 2b 59 |)+CJ$+CH|R$(CJ)+Y|
|000042b0| 24 2b 59 24 3a 44 3d 2e | 0a 38 38 31 20 46 4f 52 |$+Y$:D=.|.881 FOR|
|000042c0| 58 3d 31 54 4f 32 38 53 | 54 45 50 34 3a 44 3d 44 |X=1TO28S|TEP4:D=D|
|000042d0| 2b 31 3a 52 56 3d 49 4e | 54 28 52 4e 28 44 29 2f |+1:RV=IN|T(RN(D)/|
|000042e0| 34 30 39 36 29 3a 52 48 | 3d 52 4e 28 44 29 2d 52 |4096):RH|=RN(D)-R|
|000042f0| 56 2a 34 30 39 36 0a 38 | 38 32 20 52 48 3d 49 4e |V*4096.8|82 RH=IN|
|00004300| 54 28 52 48 2f 36 34 29 | 3a 52 4c 3d 52 4e 28 44 |T(RH/64)|:RL=RN(D|
|00004310| 29 2d 52 56 2a 34 30 39 | 36 2d 52 48 2a 36 34 3a |)-RV*409|6-RH*64:|
|00004320| 52 56 3d 52 56 2b 31 39 | 32 3a 52 48 3d 52 48 2b |RV=RV+19|2:RH=RH+|
|00004330| 31 39 32 3a 52 4c 3d 52 | 4c 2b 31 39 32 0a 38 38 |192:RL=R|L+192.88|
|00004340| 33 20 5a 52 24 3d 5a 52 | 24 2b 43 48 52 24 28 52 |3 ZR$=ZR|$+CHR$(R|
|00004350| 48 29 2b 43 48 52 24 28 | 52 4c 29 2b 43 48 52 24 |H)+CHR$(|RL)+CHR$|
|00004360| 28 52 56 29 2b 4d 4e 24 | 28 44 29 3a 4e 45 58 54 |(RV)+MN$|(D):NEXT|
|00004370| 0a 38 38 34 20 50 52 49 | 4e 54 23 31 2c 4d 24 43 |.884 PRI|NT#1,M$C|
|00004380| 48 52 24 28 47 32 29 43 | 48 52 24 28 48 32 29 59 |HR$(G2)C|HR$(H2)Y|
|00004390| 24 3a 50 52 49 4e 54 23 | 33 2c 5a 52 24 3a 50 52 |$:PRINT#|3,ZR$:PR|
|000043a0| 49 4e 54 23 31 2c 4d 24 | 43 48 52 24 28 47 32 29 |INT#1,M$|CHR$(G2)|
|000043b0| 43 48 52 24 28 48 32 29 | 59 24 3a 47 4f 54 4f 31 |CHR$(H2)|Y$:GOTO1|
|000043c0| 0a 39 30 30 20 49 46 5a | 41 4e 44 50 30 3d 2e 54 |.900 IFZ|ANDP0=.T|
|000043d0| 48 45 4e 4e 24 3d 22 21 | 22 2b 4e 24 0a 39 30 31 |HENN$="!|"+N$.901|
|000043e0| 20 53 50 3d 32 34 2d 4c | 45 4e 28 4c 45 46 54 24 | SP=24-L|EN(LEFT$|
|000043f0| 28 4e 24 2c 32 33 29 29 | 3a 50 4f 4b 45 31 30 32 |(N$,23))|:POKE102|
|00004400| 33 2c 2e 3a 4a 55 24 3d | 45 24 3a 47 4f 53 55 42 |3,.:JU$=|E$:GOSUB|
|00004410| 32 38 30 0a 39 30 35 20 | 41 24 3d 4c 45 46 54 24 |280.905 |A$=LEFT$|
|00004420| 28 4e 24 2c 32 33 29 2b | 4c 45 46 54 24 28 58 24 |(N$,23)+|LEFT$(X$|
|00004430| 2c 53 50 29 2b 4a 55 24 | 2b 22 2d 22 3a 47 4f 53 |,SP)+JU$|+"-":GOS|
|00004440| 55 42 32 37 39 3a 41 24 | 3d 41 24 2b 4a 55 24 0a |UB279:A$|=A$+JU$.|
|00004450| 39 31 30 20 47 4f 53 55 | 42 32 35 3a 50 52 49 4e |910 GOSU|B25:PRIN|
|00004460| 54 23 32 2c 41 24 3a 49 | 4e 50 55 54 23 31 2c 41 |T#2,A$:I|NPUT#1,A|
|00004470| 2c 43 31 24 2c 43 31 2c | 43 31 3a 4f 4e 2d 28 41 |,C1$,C1,|C1:ON-(A|
|00004480| 3e 2e 29 47 4f 53 55 42 | 37 32 33 30 3a 47 4f 54 |>.)GOSUB|7230:GOT|
|00004490| 4f 31 0a 39 31 39 20 49 | 46 50 45 45 4b 28 37 33 |O1.919 I|FPEEK(73|
|000044a0| 39 29 54 48 45 4e 41 24 | 3d 22 d3 4f 52 52 59 2c |9)THENA$|=".ORRY,|
|000044b0| 20 d3 59 53 4f 50 20 4e | 4f 54 20 41 56 41 49 4c | .YSOP N|OT AVAIL|
|000044c0| 41 42 4c 45 2e 22 3a 47 | 4f 54 4f 31 32 0a 39 32 |ABLE.":G|OTO12.92|
|000044d0| 30 20 50 41 3d 31 2d 50 | 41 3a 41 24 3d 22 d0 41 |0 PA=1-P|A:A$=".A|
|000044e0| 47 45 52 20 49 53 20 22 | 2b 4d 49 44 24 28 22 cf |GER IS "|+MID$(".|
|000044f0| 46 46 cf 4e 20 22 2c 33 | 2a 50 41 2b 31 2c 33 29 |FF.N ",3|*PA+1,3)|
|00004500| 0a 39 32 31 20 50 4f 4b | 45 35 34 32 39 36 2c 50 |.921 POK|E54296,P|
|00004510| 41 2a 31 35 3a 50 4f 4b | 45 36 39 30 2c 50 45 45 |A*15:POK|E690,PEE|
|00004520| 4b 28 37 32 39 29 3a 49 | 46 50 41 54 48 45 4e 50 |K(729):I|FPATHENP|
|00004530| 4f 4b 45 36 39 30 2c 37 | 0a 39 32 32 20 47 4f 54 |OKE690,7|.922 GOT|
|00004540| 4f 31 32 0a 39 32 33 20 | 47 4f 53 55 42 33 39 30 |O12.923 |GOSUB390|
|00004550| 3a 41 24 3d 22 d2 45 4c | 45 41 53 45 20 32 38 2d |:A$=".EL|EASE 28-|
|00004560| c1 55 47 2d 39 34 20 2d | 20 ca cd 22 3a 47 4f 54 |.UG-94 -| ..":GOT|
|00004570| 4f 31 32 0a 39 33 30 20 | 41 24 3d 22 d5 53 45 20 |O12.930 |A$=".SE |
|00004580| 41 20 54 52 41 4e 53 50 | 41 52 45 4e 54 20 d2 45 |A TRANSP|ARENT .E|
|00004590| 54 55 52 4e a0 cd 41 52 | 4b 45 52 3f 20 03 22 3a |TURN..AR|KER? .":|
|000045a0| 47 4f 53 55 42 39 3a 47 | 4f 53 55 42 33 31 3a 49 |GOSUB9:G|OSUB31:I|
|000045b0| 46 44 54 48 45 4e 49 24 | 3d 52 24 3a 47 4f 54 4f |FDTHENI$|=R$:GOTO|
|000045c0| 39 33 33 0a 39 33 31 20 | 41 24 3d 22 c1 d3 c3 c9 |933.931 |A$="....|
|000045d0| c9 20 d2 45 54 55 52 4e | a0 cd 41 52 4b 45 52 3a |. .ETURN|..ARKER:|
|000045e0| 20 22 2b 43 4a 24 2b 52 | 24 2b 22 ce 45 57 20 cd | "+CJ$+R|$+".EW .|
|000045f0| 41 52 4b 45 52 3a 20 03 | 22 3a 47 4f 53 55 42 39 |ARKER: .|":GOSUB9|
|00004600| 3a 4f 3d 31 3a 47 4f 53 | 55 42 34 0a 39 33 32 20 |:O=1:GOS|UB4.932 |
|00004610| 49 46 49 24 3d 43 24 4f | 52 5a 54 48 45 4e 33 0a |IFI$=C$O|RZTHEN3.|
|00004620| 39 33 33 20 43 4a 24 3d | 49 24 3a 50 4f 4b 45 37 |933 CJ$=|I$:POKE7|
|00004630| 34 34 2c 41 53 43 28 43 | 4a 24 29 3a 41 24 3d 22 |44,ASC(C|J$):A$="|
|00004640| cf 4b 41 59 22 3a 47 4f | 54 4f 31 32 0a 31 32 36 |.KAY":GO|TO12.126|
|00004650| 30 20 50 4f 4b 45 36 38 | 37 2c 57 44 2d 34 3a 42 |0 POKE68|7,WD-4:B|
|00004660| 24 3d 22 22 3a 4a 33 3d | 2e 3a 4d 33 3d 2e 3a 46 |$="":J3=|.:M3=.:F|
|00004670| 43 3d 2e 3a 41 24 3d 22 | 02 c5 3e 20 03 22 3a 49 |C=.:A$="|..> .":I|
|00004680| 46 4a 35 54 48 45 4e 4a | 35 3d 2e 3a 49 24 3d 22 |FJ5THENJ|5=.:I$="|
|00004690| cc 22 3a 47 4f 54 4f 31 | 33 30 30 0a 31 32 37 30 |.":GOTO1|300.1270|
|000046a0| 20 49 46 50 3d 2e 54 48 | 45 4e 41 24 3d 22 02 1b | IFP=.TH|ENA$="..|
|000046b0| 5b 33 33 3b 31 4d c1 2c | c3 2c c4 2c c5 2c c9 2c |[33;1M.,|.,.,.,.,|
|000046c0| cc 2c d1 2c d2 2c d3 2c | d5 2c d6 2c 20 01 3f 01 |.,.,.,.,|.,., .?.|
|000046d0| 20 46 4f 52 20 c8 c5 cc | d0 02 1b 5b 30 4d c3 4f | FOR ...|...[0M.O|
|000046e0| 4d 4d 41 4e 44 20 28 c5 | 29 3e 20 03 00 0a 31 32 |MMAND (.|)> ...12|
|000046f0| 38 30 20 51 4d 3d 2e 3a | 50 4d 3d 2e 3a 4f 3d 32 |80 QM=.:|PM=.:O=2|
|00004700| 35 34 3a 47 4f 53 55 42 | 37 3a 49 46 5a 54 48 45 |54:GOSUB|7:IFZTHE|
|00004710| 4e 52 45 54 55 52 4e 0a | 31 32 39 30 20 49 46 49 |NRETURN.|1290 IFI|
|00004720| 24 3d 43 24 54 48 45 4e | 32 30 0a 31 33 30 30 20 |$=C$THEN|20.1300 |
|00004730| 42 24 3d 49 24 3a 47 4f | 53 55 42 36 3a 41 24 3d |B$=I$:GO|SUB6:A$=|
|00004740| 4c 45 46 54 24 28 49 24 | 2c 31 29 0a 31 33 30 31 |LEFT$(I$|,1).1301|
|00004750| 20 49 46 4c 45 46 54 24 | 28 49 24 2c 32 29 3d 22 | IFLEFT$|(I$,2)="|
|00004760| d2 cd 22 54 48 45 4e 49 | 24 3d 22 c5 22 2b 4d 49 |.."THENI|$="."+MI|
|00004770| 44 24 28 49 24 2c 33 29 | 3a 50 4d 3d 31 3a 47 4f |D$(I$,3)|:PM=1:GO|
|00004780| 54 4f 31 33 30 30 0a 31 | 33 30 32 20 49 46 4c 45 |TO1300.1|302 IFLE|
|00004790| 46 54 24 28 49 24 2c 32 | 29 3d 22 c1 cd 22 54 48 |FT$(I$,2|)=".."TH|
|000047a0| 45 4e 49 24 3d 22 c5 22 | 2b 4d 49 44 24 28 49 24 |ENI$="."|+MID$(I$|
|000047b0| 2c 33 29 3a 50 4d 3d 32 | 3a 47 4f 54 4f 31 33 30 |,3):PM=2|:GOTO130|
|000047c0| 30 0a 31 33 30 33 20 49 | 46 41 24 3d 22 d2 22 4f |0.1303 I|FA$="."O|
|000047d0| 52 4c 45 46 54 24 28 42 | 24 2c 31 29 3d 22 52 22 |RLEFT$(B|$,1)="R"|
|000047e0| 54 48 45 4e 31 35 30 34 | 30 0a 31 33 30 34 20 49 |THEN1504|0.1304 I|
|000047f0| 46 45 4d 3d 2e 41 4e 44 | 4c 45 46 54 24 28 49 24 |FEM=.AND|LEFT$(I$|
|00004800| 2c 33 29 3d 22 d3 d5 c2 | 22 54 48 45 4e 4f 24 3d |,3)="...|"THENO$=|
|00004810| 4d 49 44 24 28 42 24 2c | 35 2c 33 30 29 3a 41 24 |MID$(B$,|5,30):A$|
|00004820| 3d 22 02 d3 55 42 4a 3a | 20 22 2b 4f 24 3a 47 4f |="..UBJ:| "+O$:GO|
|00004830| 54 4f 31 39 0a 31 33 30 | 35 20 49 46 41 24 3d 22 |TO19.130|5 IFA$="|
|00004840| 3f 22 4f 52 41 24 3d 22 | c8 22 54 48 45 4e 46 24 |?"ORA$="|."THENF$|
|00004850| 3d 22 48 45 4c 50 45 22 | 3a 55 3d 42 44 3a 44 44 |="HELPE"|:U=BD:DD|
|00004860| 24 3d 42 44 24 3a 47 4f | 54 4f 31 33 38 31 0a 31 |$=BD$:GO|TO1381.1|
|00004870| 33 30 36 20 49 46 56 41 | 4c 28 49 24 29 54 48 45 |306 IFVA|L(I$)THE|
|00004880| 4e 49 24 3d 22 c5 22 2b | 49 24 3a 41 24 3d 22 c5 |NI$="."+|I$:A$=".|
|00004890| 00 0a 31 33 31 30 20 49 | 46 49 24 3d 22 d1 cc 22 |..1310 I|FI$=".."|
|000048a0| 54 48 45 4e 51 4d 3d 31 | 3a 41 24 3d 22 d6 00 0a |THENQM=1|:A$="...|
|000048b0| 31 33 32 30 20 49 46 41 | 24 3d 22 cc 22 4f 52 41 |1320 IFA|$="."ORA|
|000048c0| 24 3d 22 c5 22 4f 52 41 | 24 3d 22 c4 22 4f 52 41 |$="."ORA|$="."ORA|
|000048d0| 24 3d 22 c9 22 4f 52 41 | 24 3d 22 d1 22 54 48 45 |$="."ORA|$="."THE|
|000048e0| 4e 31 35 32 34 30 0a 31 | 33 33 30 20 49 46 49 24 |N15240.1|330 IFI$|
|000048f0| 3d 22 c1 22 54 48 45 4e | 41 24 3d 22 c1 22 3a 52 |="."THEN|A$=".":R|
|00004900| 45 54 55 52 4e 0a 31 33 | 35 30 20 49 46 49 24 3d |ETURN.13|50 IFI$=|
|00004910| 22 d3 22 54 48 45 4e 41 | 24 3d 22 d3 22 3a 52 45 |"."THENA|$=".":RE|
|00004920| 54 55 52 4e 0a 31 33 36 | 30 20 49 46 41 24 3d 22 |TURN.136|0 IFA$="|
|00004930| d5 22 54 48 45 4e 55 50 | 3d 33 3a 52 45 54 55 52 |."THENUP|=3:RETUR|
|00004940| 4e 0a 31 33 36 35 20 49 | 46 49 24 3d 22 c3 c1 d4 |N.1365 I|FI$="...|
|00004950| 22 54 48 45 4e 4d 53 3d | 31 3a 47 4f 53 55 42 31 |"THENMS=|1:GOSUB1|
|00004960| 34 31 33 37 3a 4e 43 24 | 3d 49 49 24 3a 4d 53 3d |4137:NC$|=II$:MS=|
|00004970| 2e 0a 31 33 37 30 20 49 | 46 41 24 3d 22 c3 22 54 |..1370 I|FA$="."T|
|00004980| 48 45 4e 43 37 3d 31 3a | 52 45 54 55 52 4e 0a 31 |HENC7=1:|RETURN.1|
|00004990| 33 37 35 20 49 46 41 24 | 3d 22 d6 22 41 4e 44 28 |375 IFA$|="."AND(|
|000049a0| 52 50 3d 31 4f 52 28 45 | 4d 3d 31 41 4e 44 56 4c |RP=1OR(E|M=1ANDVL|
|000049b0| 2b 56 48 3c 3e 2e 29 29 | 54 48 45 4e 31 33 37 37 |+VH<>.))|THEN1377|
|000049c0| 0a 31 33 37 36 20 47 4f | 54 4f 32 30 0a 31 33 37 |.1376 GO|TO20.137|
|000049d0| 37 20 49 46 45 4d 54 48 | 45 4e 4a 3d 56 52 3a 56 |7 IFEMTH|ENJ=VR:V|
|000049e0| 52 3d 56 4c 2b 56 48 2a | 43 0a 31 33 37 38 20 41 |R=VL+VH*|C.1378 A|
|000049f0| 24 3d 22 d4 45 58 54 20 | 4f 46 a0 4d 45 53 53 41 |$=".EXT |OF.MESSA|
|00004a00| 47 45 22 2b 53 54 52 24 | 28 56 52 29 3a 47 4f 53 |GE"+STR$|(VR):GOS|
|00004a10| 55 42 39 3a 46 24 3d 22 | 45 22 2b 47 4d 24 2b 22 |UB9:F$="|E"+GM$+"|
|00004a20| 2d 22 2b 4d 49 44 24 28 | 53 54 52 24 28 56 52 29 |-"+MID$(|STR$(VR)|
|00004a30| 2c 32 29 3a 55 3d 4d 44 | 3a 44 44 24 3d 50 24 0a |,2):U=MD|:DD$=P$.|
|00004a40| 31 33 37 39 20 49 46 51 | 4d 3d 32 54 48 45 4e 4a |1379 IFQ|M=2THENJ|
|00004a50| 53 3d 56 52 0a 31 33 38 | 30 20 49 46 45 4d 54 48 |S=VR.138|0 IFEMTH|
|00004a60| 45 4e 56 52 3d 4a 3a 4a | 3d 31 0a 31 33 38 31 20 |ENVR=J:J|=1.1381 |
|00004a70| 59 3d 2e 3a 49 46 51 4d | 3d 2e 54 48 45 4e 50 4f |Y=.:IFQM|=.THENPO|
|00004a80| 4b 45 36 38 37 2c 57 44 | 0a 31 33 38 32 20 47 4f |KE687,WD|.1382 GO|
|00004a90| 53 55 42 31 3a 4f 50 45 | 4e 31 2c 55 2c 31 35 3a |SUB1:OPE|N1,U,15:|
|00004aa0| 4f 50 45 4e 32 2c 55 2c | 32 2c 44 44 24 2b 46 24 |OPEN2,U,|2,DD$+F$|
|00004ab0| 3a 47 4f 53 55 42 31 38 | 3a 49 4e 50 55 54 23 31 |:GOSUB18|:INPUT#1|
|00004ac0| 2c 41 2c 43 31 24 2c 43 | 31 2c 43 31 3a 49 46 41 |,A,C1$,C|1,C1:IFA|
|00004ad0| 54 48 45 4e 31 0a 31 33 | 38 33 20 4f 4e 2d 28 51 |THEN1.13|83 ON-(Q|
|00004ae0| 4d 3d 32 29 47 4f 54 4f | 31 34 35 30 3a 41 24 3d |M=2)GOTO|1450:A$=|
|00004af0| 43 4f 24 28 32 29 2b 22 | 02 03 22 3a 47 4f 53 55 |CO$(2)+"|..":GOSU|
|00004b00| 42 32 0a 31 33 38 34 20 | 59 3d 59 2b 31 3a 47 4f |B2.1384 |Y=Y+1:GO|
|00004b10| 53 55 42 39 30 3a 49 46 | 46 57 54 48 45 4e 46 43 |SUB90:IF|FWTHENFC|
|00004b20| 3d 46 43 2b 31 3a 49 46 | 46 43 3d 46 57 54 48 45 |=FC+1:IF|FC=FWTHE|
|00004b30| 4e 47 4f 53 55 42 36 34 | 3a 49 46 49 24 3d 22 ce |NGOSUB64|:IFI$=".|
|00004b40| 22 4f 52 5a 54 48 45 4e | 32 32 39 30 0a 31 33 38 |"ORZTHEN|2290.138|
|00004b50| 35 20 49 46 51 4d 54 48 | 45 4e 53 50 3d 33 3a 49 |5 IFQMTH|ENSP=3:I|
|00004b60| 46 4c 45 4e 28 53 54 52 | 24 28 59 29 29 3e 34 54 |FLEN(STR|$(Y))>4T|
|00004b70| 48 45 4e 53 50 3d 34 0a | 31 33 38 36 20 49 46 51 |HENSP=4.|1386 IFQ|
|00004b80| 4d 54 48 45 4e 41 41 24 | 3d 4d 49 44 24 28 53 54 |MTHENAA$|=MID$(ST|
|00004b90| 52 24 28 59 29 2c 32 29 | 3a 41 41 24 3d 4c 45 46 |R$(Y),2)|:AA$=LEF|
|00004ba0| 54 24 28 22 20 20 20 20 | 22 2c 53 50 2d 4c 45 4e |T$(" |",SP-LEN|
|00004bb0| 28 41 41 24 29 29 2b 41 | 41 24 3a 41 24 3d 41 41 |(AA$))+A|A$:A$=AA|
|00004bc0| 24 2b 22 3a 22 2b 41 24 | 0a 31 33 38 37 20 47 4f |$+":"+A$|.1387 GO|
|00004bd0| 53 55 42 32 3a 49 46 53 | 3d 2e 41 4e 44 57 3d 2e |SUB2:IFS|=.ANDW=.|
|00004be0| 41 4e 44 5a 3d 2e 54 48 | 45 4e 31 33 38 34 0a 31 |ANDZ=.TH|EN1384.1|
|00004bf0| 33 38 38 20 41 3d 2e 3a | 46 43 3d 2e 3a 41 41 24 |388 A=.:|FC=.:AA$|
|00004c00| 3d 22 22 3a 47 4f 53 55 | 42 31 0a 31 33 38 39 20 |="":GOSU|B1.1389 |
|00004c10| 41 24 3d 22 20 1b 5b 30 | 4d 22 3a 47 4f 53 55 42 |A$=" .[0|M":GOSUB|
|00004c20| 32 3a 47 4f 54 4f 32 30 | 0a 31 33 39 30 20 47 4f |2:GOTO20|.1390 GO|
|00004c30| 53 55 42 35 39 3a 59 3d | 31 0a 31 33 39 31 20 47 |SUB59:Y=|1.1391 G|
|00004c40| 4f 53 55 42 38 35 3a 49 | 46 4c 45 4e 28 41 24 29 |OSUB85:I|FLEN(A$)|
|00004c50| 3d 42 4f 52 59 3d 2d 31 | 54 48 45 4e 34 30 0a 31 |=BORY=-1|THEN40.1|
|00004c60| 33 39 32 20 49 46 59 3c | 4c 54 48 45 4e 59 3d 59 |392 IFY<|LTHENY=Y|
|00004c70| 2b 31 3a 47 4f 54 4f 31 | 33 39 31 0a 31 33 39 33 |+1:GOTO1|391.1393|
|00004c80| 20 49 46 50 4d 3d 31 41 | 4e 44 52 49 47 48 54 24 | IFPM=1A|NDRIGHT$|
|00004c90| 28 41 24 2c 31 29 3d 43 | 4a 24 54 48 45 4e 41 41 |(A$,1)=C|J$THENAA|
|00004ca0| 24 3d 41 24 3a 42 24 3d | 4c 45 46 54 24 28 41 24 |$=A$:B$=|LEFT$(A$|
|00004cb0| 2c 4c 45 4e 28 41 24 29 | 2d 31 29 3a 47 4f 54 4f |,LEN(A$)|-1):GOTO|
|00004cc0| 31 34 30 32 0a 31 33 39 | 34 20 49 46 50 4d 3d 32 |1402.139|4 IFPM=2|
|00004cd0| 54 48 45 4e 41 41 24 3d | 41 24 3a 42 24 3d 41 24 |THENAA$=|A$:B$=A$|
|00004ce0| 2b 43 4a 24 3a 47 4f 54 | 4f 31 34 30 32 0a 31 33 |+CJ$:GOT|O1402.13|
|00004cf0| 39 35 20 49 46 50 4d 54 | 48 45 4e 41 24 3d 56 24 |95 IFPMT|HENA$=V$|
|00004d00| 3a 47 4f 54 4f 31 39 0a | 31 33 39 36 20 42 24 3d |:GOTO19.|1396 B$=|
|00004d10| 41 24 3a 4a 4d 3d 2e 3a | 49 46 52 49 47 48 54 24 |A$:JM=.:|IFRIGHT$|
|00004d20| 28 41 24 2c 31 29 3d 43 | 4a 24 54 48 45 4e 4a 4d |(A$,1)=C|J$THENJM|
|00004d30| 3d 31 3a 49 46 52 49 47 | 48 54 24 28 41 24 2c 31 |=1:IFRIG|HT$(A$,1|
|00004d40| 29 3d 52 24 54 48 45 4e | 42 24 3d 4c 45 46 54 24 |)=R$THEN|B$=LEFT$|
|00004d50| 28 42 24 2c 4c 45 4e 28 | 42 24 29 2d 31 29 0a 31 |(B$,LEN(|B$)-1).1|
|00004d60| 33 39 37 20 53 50 3d 33 | 3a 49 46 4c 45 4e 28 53 |397 SP=3|:IFLEN(S|
|00004d70| 54 52 24 28 59 29 29 3e | 34 54 48 45 4e 53 50 3d |TR$(Y))>|4THENSP=|
|00004d80| 34 0a 31 33 39 38 20 41 | 41 24 3d 4d 49 44 24 28 |4.1398 A|A$=MID$(|
|00004d90| 53 54 52 24 28 59 29 2c | 32 29 3a 41 41 24 3d 4c |STR$(Y),|2):AA$=L|
|00004da0| 45 46 54 24 28 22 20 20 | 20 20 22 2c 53 50 2d 4c |EFT$(" | ",SP-L|
|00004db0| 45 4e 28 41 41 24 29 29 | 2b 41 41 24 3a 41 24 3d |EN(AA$))|+AA$:A$=|
|00004dc0| 41 41 24 2b 22 3a 22 2b | 42 24 3a 47 4f 53 55 42 |AA$+":"+|B$:GOSUB|
|00004dd0| 39 0a 31 33 39 39 20 41 | 24 3d 41 41 24 2b 22 3e |9.1399 A|$=AA$+">|
|00004de0| 03 22 3a 4f 3d 32 35 34 | 3a 47 4f 53 55 42 31 33 |.":O=254|:GOSUB13|
|00004df0| 3a 49 46 5a 54 48 45 4e | 52 45 54 55 52 4e 0a 31 |:IFZTHEN|RETURN.1|
|00004e00| 34 30 30 20 41 24 3d 42 | 24 3a 42 24 3d 49 24 3a |400 A$=B|$:B$=I$:|
|00004e10| 41 41 24 3d 22 22 3a 49 | 46 42 24 3d 43 24 54 48 |AA$="":I|FB$=C$TH|
|00004e20| 45 4e 32 30 0a 31 34 30 | 31 20 49 46 4a 4d 3d 31 |EN20.140|1 IFJM=1|
|00004e30| 41 4e 44 52 49 47 48 54 | 24 28 42 24 2c 31 29 3c |ANDRIGHT|$(B$,1)<|
|00004e40| 3e 43 4a 24 54 48 45 4e | 42 24 3d 42 24 2b 43 4a |>CJ$THEN|B$=B$+CJ|
|00004e50| 24 0a 31 34 30 32 20 49 | 46 50 4d 54 48 45 4e 41 |$.1402 I|FPMTHENA|
|00004e60| 24 3d 22 cf 4b 41 59 22 | 3a 47 4f 53 55 42 39 3a |$=".KAY"|:GOSUB9:|
|00004e70| 41 24 3d 41 41 24 3a 41 | 41 24 3d 22 22 0a 31 34 |A$=AA$:A|A$="".14|
|00004e80| 30 33 20 41 39 3d 4c 45 | 4e 28 41 24 29 3a 42 39 |03 A9=LE|N(A$):B9|
|00004e90| 3d 4c 45 4e 28 42 24 29 | 3a 50 4f 4b 45 36 38 39 |=LEN(B$)|:POKE689|
|00004ea0| 2c 41 42 53 28 41 39 2d | 42 39 29 3a 49 46 42 39 |,ABS(A9-|B9):IFB9|
|00004eb0| 3e 41 39 54 48 45 4e 53 | 59 53 34 39 32 30 36 2c |>A9THENS|YS49206,|
|00004ec0| 42 24 3a 47 4f 54 4f 32 | 30 0a 31 34 30 34 20 49 |B$:GOTO2|0.1404 I|
|00004ed0| 46 41 39 3e 42 39 54 48 | 45 4e 53 59 53 34 39 32 |FA9>B9TH|ENSYS492|
|00004ee0| 30 39 2c 42 24 3a 47 4f | 54 4f 32 30 0a 31 34 30 |09,B$:GO|TO20.140|
|00004ef0| 35 20 53 59 53 34 39 32 | 31 32 2c 42 24 3a 47 4f |5 SYS492|12,B$:GO|
|00004f00| 54 4f 32 30 0a 31 34 35 | 30 20 47 4f 53 55 42 39 |TO20.145|0 GOSUB9|
|00004f10| 34 3a 4a 53 24 3d 22 22 | 0a 31 34 35 31 20 59 3d |4:JS$=""|.1451 Y=|
|00004f20| 59 2b 31 3a 47 4f 53 55 | 42 39 30 3a 49 46 59 3c |Y+1:GOSU|B90:IFY<|
|00004f30| 3e 4c 54 48 45 4e 31 34 | 35 31 0a 31 34 35 32 20 |>LTHEN14|51.1452 |
|00004f40| 49 46 41 24 3d 22 22 54 | 48 45 4e 41 24 3d 43 4a |IFA$=""T|HENA$=CJ|
|00004f50| 24 0a 31 34 35 33 20 49 | 46 4c 45 46 54 24 28 41 |$.1453 I|FLEFT$(A|
|00004f60| 24 2c 31 29 3d 43 24 54 | 48 45 4e 41 24 3d 4d 49 |$,1)=C$T|HENA$=MI|
|00004f70| 44 24 28 41 24 2c 32 29 | 3a 47 4f 54 4f 31 34 35 |D$(A$,2)|:GOTO145|
|00004f80| 32 0a 31 34 35 34 20 49 | 46 52 49 47 48 54 24 28 |2.1454 I|FRIGHT$(|
|00004f90| 41 24 2c 31 29 3d 43 24 | 54 48 45 4e 41 24 3d 4c |A$,1)=C$|THENA$=L|
|00004fa0| 45 46 54 24 28 41 24 2c | 4c 45 4e 28 41 24 29 2d |EFT$(A$,|LEN(A$)-|
|00004fb0| 31 29 0a 31 34 35 35 20 | 49 46 4c 45 4e 28 41 24 |1).1455 |IFLEN(A$|
|00004fc0| 29 2b 4c 45 4e 28 4a 53 | 24 29 3e 32 32 37 54 48 |)+LEN(JS|$)>227TH|
|00004fd0| 45 4e 41 24 3d 41 24 2b | 4c 45 46 54 24 28 4a 53 |ENA$=A$+|LEFT$(JS|
|00004fe0| 24 2c 32 32 37 2d 4c 45 | 4e 28 41 24 29 29 3a 47 |$,227-LE|N(A$)):G|
|00004ff0| 4f 54 4f 31 34 35 37 0a | 31 34 35 36 20 4a 53 24 |OTO1457.|1456 JS$|
|00005000| 3d 4a 53 24 2b 22 20 22 | 2b 41 24 3a 59 3d 59 2b |=JS$+" "|+A$:Y=Y+|
|00005010| 31 3a 47 4f 53 55 42 39 | 30 3a 49 46 59 3c 3d 4a |1:GOSUB9|0:IFY<=J|
|00005020| 33 54 48 45 4e 31 34 35 | 32 0a 31 34 35 37 20 4a |3THEN145|2.1457 J|
|00005030| 53 24 3d 43 4a 24 2b 22 | d1 55 4f 54 45 44 20 46 |S$=CJ$+"|.UOTED F|
|00005040| 52 4f 4d 20 cd 53 47 3a | 22 2b 53 54 52 24 28 56 |ROM .SG:|"+STR$(V|
|00005050| 52 29 2b 43 4a 24 2b 43 | 4a 24 2b 4a 53 24 2b 43 |R)+CJ$+C|J$+JS$+C|
|00005060| 4a 24 0a 31 34 35 38 20 | 47 4f 53 55 42 31 3a 41 |J$.1458 |GOSUB1:A|
|00005070| 24 3d 22 c9 22 3a 47 4f | 54 4f 31 35 32 38 36 0a |$=".":GO|TO15286.|
|00005080| 31 35 30 30 20 49 46 41 | 43 3d 2e 41 4e 44 53 43 |1500 IFA|C=.ANDSC|
|00005090| 3d 2e 54 48 45 4e 39 38 | 0a 31 35 30 31 20 41 3d |=.THEN98|.1501 A=|
|000050a0| 56 41 4c 28 52 49 47 48 | 54 24 28 49 24 2c 31 29 |VAL(RIGH|T$(I$,1)|
|000050b0| 29 3a 49 46 28 41 3e 2e | 41 4e 44 41 3c 4d 47 2b |):IF(A>.|ANDA<MG+|
|000050c0| 31 29 4f 52 52 49 47 48 | 54 24 28 49 24 2c 31 29 |1)ORRIGH|T$(I$,1)|
|000050d0| 3d 22 30 22 54 48 45 4e | 31 35 31 30 0a 31 35 30 |="0"THEN|1510.150|
|000050e0| 32 20 49 46 4e 41 54 48 | 45 4e 49 24 3d 22 30 22 |2 IFNATH|ENI$="0"|
|000050f0| 3a 4e 41 3d 2d 31 3a 47 | 4f 54 4f 31 35 30 39 0a |:NA=-1:G|OTO1509.|
|00005100| 31 35 30 33 20 49 46 4e | 41 54 48 45 4e 4e 41 3d |1503 IFN|ATHENNA=|
|00005110| 4e 41 2b 31 3a 49 24 3d | 4d 49 44 24 28 53 54 52 |NA+1:I$=|MID$(STR|
|00005120| 24 28 4e 41 2d 31 29 2c | 32 29 3a 47 4f 54 4f 31 |$(NA-1),|2):GOTO1|
|00005130| 35 30 39 0a 31 35 30 34 | 20 49 46 41 3d 2d 31 54 |509.1504| IFA=-1T|
|00005140| 48 45 4e 39 38 0a 31 35 | 30 35 20 41 24 3d 22 1b |HEN98.15|05 A$=".|
|00005150| 5b 33 37 3b 31 4d c2 41 | 53 45 53 3a 1b 5b 33 34 |[37;1M.A|SES:.[34|
|00005160| 3b 31 4d 22 2b 52 24 3a | 47 4f 53 55 42 39 3a 4e |;1M"+R$:|GOSUB9:N|
|00005170| 41 3d 2e 0a 31 35 30 36 | 20 46 4f 52 58 3d 2e 54 |A=..1506| FORX=.T|
|00005180| 4f 4d 47 3a 4a 4d 24 3d | 22 20 22 3a 49 46 28 28 |OMG:JM$=|" ":IF((|
|00005190| 41 43 41 4e 44 32 5e 58 | 29 3d 2e 41 4e 44 58 29 |ACAND2^X|)=.ANDX)|
|000051a0| 4f 52 56 41 4c 28 4d 47 | 24 28 33 2c 58 29 29 3c |ORVAL(MG|$(3,X))<|
|000051b0| 2e 54 48 45 4e 4a 4d 24 | 3d 22 2a 00 0a 31 35 30 |.THENJM$|="*..150|
|000051c0| 37 20 41 24 3d 4a 4d 24 | 2b 4d 49 44 24 28 53 54 |7 A$=JM$|+MID$(ST|
|000051d0| 52 24 28 58 29 2c 31 29 | 2b 22 3a 20 22 2b 4d 47 |R$(X),1)|+": "+MG|
|000051e0| 24 28 30 2c 58 29 3a 47 | 4f 53 55 42 32 3a 4e 45 |$(0,X):G|OSUB2:NE|
|000051f0| 58 54 0a 31 35 30 38 20 | 41 24 3d 22 1b 5b 33 37 |XT.1508 |A$=".[37|
|00005200| 3b 31 4d c2 41 53 45 1b | 5b 33 33 3b 31 4d 22 3a |;1M.ASE.|[33;1M":|
|00005210| 4f 3d 31 3a 47 4f 53 55 | 42 32 34 3a 49 46 5a 4f |O=1:GOSU|B24:IFZO|
|00005220| 52 49 24 3d 43 24 4f 52 | 56 41 4c 28 49 24 29 3d |RI$=C$OR|VAL(I$)=|
|00005230| 47 4d 54 48 45 4e 33 0a | 31 35 30 39 20 41 3d 56 |GMTHEN3.|1509 A=V|
|00005240| 41 4c 28 49 24 29 3a 49 | 46 28 41 3c 31 4f 52 41 |AL(I$):I|F(A<1ORA|
|00005250| 3e 4d 47 29 41 4e 44 49 | 24 3c 3e 22 30 22 54 48 |>MG)ANDI|$<>"0"TH|
|00005260| 45 4e 31 35 30 32 0a 31 | 35 31 30 20 49 46 28 52 |EN1502.1|510 IF(R|
|00005270| 49 47 48 54 24 28 49 24 | 2c 31 29 3c 3e 22 30 22 |IGHT$(I$|,1)<>"0"|
|00005280| 41 4e 44 28 41 43 41 4e | 44 32 5e 41 29 3d 2e 41 |AND(ACAN|D2^A)=.A|
|00005290| 4e 44 53 31 3d 2e 29 4f | 52 56 41 4c 28 4d 47 24 |NDS1=.)O|RVAL(MG$|
|000052a0| 28 33 2c 41 29 29 3c 2e | 54 48 45 4e 41 3d 2d 31 |(3,A))<.|THENA=-1|
|000052b0| 3a 47 4f 54 4f 31 35 30 | 33 0a 31 35 31 31 20 49 |:GOTO150|3.1511 I|
|000052c0| 46 28 54 30 41 4e 44 32 | 5e 41 29 3d 2e 41 4e 44 |F(T0AND2|^A)=.AND|
|000052d0| 4e 41 3e 2e 41 4e 44 41 | 3e 2e 54 48 45 4e 41 24 |NA>.ANDA|>.THENA$|
|000052e0| 3d 22 02 d3 4b 49 50 50 | 49 4e 47 20 c2 41 53 45 |="..KIPP|ING .ASE|
|000052f0| 22 2b 53 54 52 24 28 41 | 29 3a 47 4f 53 55 42 32 |"+STR$(A|):GOSUB2|
|00005300| 3a 41 3d 2d 31 3a 47 4f | 54 4f 31 35 30 33 0a 31 |:A=-1:GO|TO1503.1|
|00005310| 35 31 32 20 41 4c 24 28 | 47 4d 29 3d 53 54 52 24 |512 AL$(|GM)=STR$|
|00005320| 28 4e 29 3a 52 46 24 28 | 47 4d 29 3d 53 54 52 24 |(N):RF$(|GM)=STR$|
|00005330| 28 52 29 3a 4e 3d 56 41 | 4c 28 41 4c 24 28 41 29 |(R):N=VA|L(AL$(A)|
|00005340| 29 3a 52 3d 56 41 4c 28 | 52 46 24 28 41 29 29 0a |):R=VAL(|RF$(A)).|
|00005350| 31 35 31 33 20 4d 42 3d | 56 41 4c 28 4d 47 24 28 |1513 MB=|VAL(MG$(|
|00005360| 33 2c 41 29 29 3a 50 24 | 3d 4d 47 24 28 31 2c 41 |3,A)):P$|=MG$(1,A|
|00005370| 29 3a 4d 44 3d 56 41 4c | 28 4d 47 24 28 32 2c 41 |):MD=VAL|(MG$(2,A|
|00005380| 29 29 0a 31 35 31 34 20 | 52 4e 3d 52 4e 28 41 29 |)).1514 |RN=RN(A)|
|00005390| 2b 31 3a 4d 4e 3d 4d 4e | 28 41 29 3a 4d 4e 24 3d |+1:MN=MN|(A):MN$=|
|000053a0| 4d 4e 24 28 41 29 0a 31 | 35 31 35 20 49 46 4e 24 |MN$(A).1|515 IFN$|
|000053b0| 3d 4a 24 54 48 45 4e 52 | 4e 3d 56 41 4c 28 52 34 |=J$THENR|N=VAL(R4|
|000053c0| 24 28 41 29 29 3a 4d 4e | 3d 56 41 4c 28 53 59 24 |$(A)):MN|=VAL(SY$|
|000053d0| 28 41 29 29 3a 4d 4e 24 | 3d 53 59 24 28 41 29 3a |(A)):MN$|=SY$(A):|
|000053e0| 52 34 3d 52 4e 0a 31 35 | 31 36 20 53 59 53 34 39 |R4=RN.15|16 SYS49|
|000053f0| 32 33 30 3a 49 46 4f 3c | 2e 54 48 45 4e 52 45 54 |230:IFO<|.THENRET|
|00005400| 55 52 4e 0a 31 35 31 37 | 20 47 4d 24 3d 4d 49 44 |URN.1517| GM$=MID|
|00005410| 24 28 53 54 52 24 28 41 | 29 2c 32 29 3a 49 46 47 |$(STR$(A|),2):IFG|
|00005420| 4d 3d 41 54 48 45 4e 31 | 35 32 32 0a 31 35 31 38 |M=ATHEN1|522.1518|
|00005430| 20 47 42 3d 31 3a 41 24 | 3d 22 02 1b 5b 30 4d c5 | GB=1:A$|="..[0M.|
|00005440| 4e 54 45 52 49 4e 47 3a | 20 1b 5b 33 33 3b 31 4d |NTERING:| .[33;1M|
|00005450| 22 2b 4d 47 24 28 2e 2c | 41 29 3a 47 4f 53 55 42 |"+MG$(.,|A):GOSUB|
|00005460| 32 0a 31 35 31 39 20 49 | 46 4e 41 3e 2d 31 54 48 |2.1519 I|FNA>-1TH|
|00005470| 45 4e 46 24 3d 22 42 2d | c2 22 2b 47 4d 24 3a 47 |ENF$="B-|."+GM$:G|
|00005480| 4f 53 55 42 31 37 3a 49 | 46 52 4e 3c 3d 43 4f 54 |OSUB17:I|FRN<=COT|
|00005490| 48 45 4e 47 4f 53 55 42 | 36 34 0a 31 35 32 30 20 |HENGOSUB|64.1520 |
|000054a0| 49 46 4e 3e 2e 41 4e 44 | 4e 41 3c 31 54 48 45 4e |IFN>.AND|NA<1THEN|
|000054b0| 47 4f 53 55 42 37 34 37 | 3a 47 4f 53 55 42 39 0a |GOSUB747|:GOSUB9.|
|000054c0| 31 35 32 31 20 47 42 3d | 2e 3a 49 46 4d 4e 3e 2e |1521 GB=|.:IFMN>.|
|000054d0| 41 4e 44 4e 41 3c 31 54 | 48 45 4e 41 24 3d 22 02 |ANDNA<1T|HENA$=".|
|000054e0| 1b 5b 30 4d c2 41 53 45 | 20 22 2b 47 4d 24 2b 22 |.[0M.ASE| "+GM$+"|
|000054f0| 20 cd 41 49 4c 3a 1b 5b | 33 31 4d 22 2b 53 54 52 | .AIL:.[|31M"+STR|
|00005500| 24 28 4d 4e 29 3a 47 4f | 53 55 42 32 0a 31 35 32 |$(MN):GO|SUB2.152|
|00005510| 32 20 49 46 4e 41 3d 2d | 31 54 48 45 4e 4e 41 3d |2 IFNA=-|1THENNA=|
|00005520| 2e 3a 42 4d 3d 2e 0a 31 | 35 32 33 20 47 4d 3d 56 |.:BM=..1|523 GM=V|
|00005530| 41 4c 28 47 4d 24 29 3a | 49 46 42 4d 3d 32 54 48 |AL(GM$):|IFBM=2TH|
|00005540| 45 4e 31 32 30 30 30 0a | 31 35 32 34 20 49 46 4e |EN12000.|1524 IFN|
|00005550| 41 54 48 45 4e 31 32 30 | 31 30 0a 31 35 32 35 20 |ATHEN120|10.1525 |
|00005560| 47 4f 54 4f 33 0a 32 32 | 34 30 20 55 3d 42 44 3a |GOTO3.22|40 U=BD:|
|00005570| 44 44 24 3d 42 44 24 3a | 47 4f 54 4f 32 32 35 35 |DD$=BD$:|GOTO2255|
|00005580| 0a 32 32 35 30 20 55 3d | 38 3a 44 44 24 3d 22 30 |.2250 U=|8:DD$="0|
|00005590| 3a 00 0a 32 32 35 35 20 | 47 4f 53 55 42 31 3a 4f |:..2255 |GOSUB1:O|
|000055a0| 50 45 4e 31 2c 55 2c 31 | 35 3a 4f 50 45 4e 32 2c |PEN1,U,1|5:OPEN2,|
|000055b0| 55 2c 32 2c 44 44 24 2b | 46 24 3a 47 4f 53 55 42 |U,2,DD$+|F$:GOSUB|
|000055c0| 31 38 3a 49 4e 50 55 54 | 23 31 2c 41 2c 43 31 24 |18:INPUT|#1,A,C1$|
|000055d0| 2c 43 31 2c 43 31 3a 49 | 46 41 54 48 45 4e 31 0a |,C1,C1:I|FATHEN1.|
|000055e0| 32 32 35 38 20 49 46 46 | 24 3d 22 49 4e 54 52 4f |2258 IFF|$="INTRO|
|000055f0| 22 4f 52 28 4c 45 46 54 | 24 28 46 24 2c 33 29 3d |"OR(LEFT|$(F$,3)=|
|00005600| 22 42 2d c2 22 41 4e 44 | 4c 45 4e 28 46 24 29 3d |"B-."AND|LEN(F$)=|
|00005610| 34 29 54 48 45 4e 47 4f | 53 55 42 32 37 35 3a 49 |4)THENGO|SUB275:I|
|00005620| 46 52 4e 3e 43 4f 54 48 | 45 4e 32 32 39 30 0a 32 |FRN>COTH|EN2290.2|
|00005630| 32 36 30 20 41 24 3d 43 | 4f 24 28 32 29 2b 22 02 |260 A$=C|O$(2)+".|
|00005640| 03 22 3a 47 4f 53 55 42 | 32 0a 32 32 37 30 20 47 |.":GOSUB|2.2270 G|
|00005650| 4f 53 55 42 39 30 3a 49 | 46 46 57 54 48 45 4e 46 |OSUB90:I|FFWTHENF|
|00005660| 43 3d 46 43 2b 31 3a 49 | 46 46 43 3d 46 57 54 48 |C=FC+1:I|FFC=FWTH|
|00005670| 45 4e 47 4f 53 55 42 36 | 34 3a 49 46 49 24 3d 22 |ENGOSUB6|4:IFI$="|
|00005680| ce 22 4f 52 5a 54 48 45 | 4e 32 32 39 30 0a 32 32 |."ORZTHE|N2290.22|
|00005690| 38 30 20 47 4f 53 55 42 | 32 3a 49 46 53 3d 2e 41 |80 GOSUB|2:IFS=.A|
|000056a0| 4e 44 57 3d 2e 41 4e 44 | 5a 3d 2e 54 48 45 4e 32 |NDW=.AND|Z=.THEN2|
|000056b0| 32 37 30 0a 32 32 39 30 | 20 41 3d 2e 3a 46 43 3d |270.2290| A=.:FC=|
|000056c0| 2e 3a 47 4f 54 4f 31 0a | 32 34 32 30 20 50 4f 4b |.:GOTO1.|2420 POK|
|000056d0| 45 37 30 37 2c 2e 3a 41 | 3d 41 53 43 28 41 24 29 |E707,.:A|=ASC(A$)|
|000056e0| 3a 49 46 41 3d 31 33 33 | 54 48 45 4e 41 24 3d 43 |:IFA=133|THENA$=C|
|000056f0| 57 24 2b 53 54 52 24 28 | 53 43 29 3a 47 4f 53 55 |W$+STR$(|SC):GOSU|
|00005700| 42 32 38 3a 47 4f 54 4f | 32 34 33 34 0a 32 34 32 |B28:GOTO|2434.242|
|00005710| 34 20 49 46 41 3d 31 33 | 34 41 4e 44 4c 53 3d 2e |4 IFA=13|4ANDLS=.|
|00005720| 54 48 45 4e 50 4f 4b 45 | 37 30 36 2c 32 35 35 2d |THENPOKE|706,255-|
|00005730| 50 45 45 4b 28 37 30 36 | 29 3a 47 4f 53 55 42 31 |PEEK(706|):GOSUB1|
|00005740| 30 0a 32 34 32 36 20 4f | 4e 2d 28 41 3d 31 33 36 |0.2426 O|N-(A=136|
|00005750| 29 47 4f 54 4f 34 31 35 | 30 3a 4f 4e 2d 28 41 3d |)GOTO415|0:ON-(A=|
|00005760| 31 34 30 29 47 4f 54 4f | 34 36 30 0a 32 34 32 38 |140)GOTO|460.2428|
|00005770| 20 49 46 41 3d 31 33 35 | 54 48 45 4e 47 4f 53 55 | IFA=135|THENGOSU|
|00005780| 42 34 39 30 3a 41 24 3d | 59 24 3a 49 46 44 45 54 |B490:A$=|Y$:IFDET|
|00005790| 48 45 4e 52 45 54 55 52 | 4e 0a 32 34 33 30 20 49 |HENRETUR|N.2430 I|
|000057a0| 46 41 3d 31 33 39 54 48 | 45 4e 45 3d 54 49 3a 4b |FA=139TH|ENE=TI:K|
|000057b0| 3d 45 3a 49 24 3d 22 ff | 22 3a 47 4f 54 4f 39 33 |=E:I$=".|":GOTO93|
|000057c0| 0a 32 34 33 32 20 49 46 | 41 3d 31 33 38 41 4e 44 |.2432 IF|A=138AND|
|000057d0| 4c 56 3d 31 54 48 45 4e | 4e 24 3d 4d 49 44 24 28 |LV=1THEN|N$=MID$(|
|000057e0| 4e 24 2c 32 29 3a 46 24 | 3d 22 d5 d4 c9 cc 22 3a |N$,2):F$|="....":|
|000057f0| 53 43 3d 31 3a 47 4f 54 | 4f 39 30 30 33 0a 32 34 |SC=1:GOT|O9003.24|
|00005800| 33 34 20 41 24 3d 41 53 | 24 3a 47 4f 54 4f 32 35 |34 A$=AS|$:GOTO25|
|00005810| 32 0a 34 31 35 30 20 49 | 46 4a 39 3d 31 54 48 45 |2.4150 I|FJ9=1THE|
|00005820| 4e 4b 3d 54 49 3a 4a 39 | 3d 2e 3a 52 45 54 55 52 |NK=TI:J9|=.:RETUR|
|00005830| 4e 0a 34 31 36 30 20 4a | 39 3d 31 3a 49 24 3d 43 |N.4160 J|9=1:I$=C|
|00005840| 24 3a 41 24 3d 43 24 3a | 47 4f 54 4f 32 0a 34 32 |$:A$=C$:|GOTO2.42|
|00005850| 33 30 20 50 4f 4b 45 35 | 34 32 39 36 2c 2e 3a 50 |30 POKE5|4296,.:P|
|00005860| 41 3d 2e 3a 41 24 3d 22 | 1b 5b 33 37 3b 31 4d c3 |A=.:A$="|.[37;1M.|
|00005870| 48 41 54 20 cd 4f 44 45 | 22 2b 52 24 2b 52 24 2b |HAT .ODE|"+R$+R$+|
|00005880| 22 03 22 3a 47 4f 53 55 | 42 39 3a 50 4f 4b 45 36 |".":GOSU|B9:POKE6|
|00005890| 39 30 2c 50 45 45 4b 28 | 37 32 39 29 0a 34 32 33 |90,PEEK(|729).423|
|000058a0| 32 20 50 4f 4b 45 36 39 | 34 2c 2e 3a 50 4f 4b 45 |2 POKE69|4,.:POKE|
|000058b0| 37 30 32 2c 42 3a 53 59 | 53 34 39 32 31 35 2c 58 |702,B:SY|S49215,X|
|000058c0| 24 3a 47 4f 53 55 42 34 | 32 3a 49 46 5a 54 48 45 |$:GOSUB4|2:IFZTHE|
|000058d0| 4e 50 4f 4b 45 37 30 37 | 2c 31 33 36 0a 34 32 33 |NPOKE707|,136.423|
|000058e0| 34 20 49 46 50 45 45 4b | 28 37 30 37 29 3d 2e 54 |4 IFPEEK|(707)=.T|
|000058f0| 48 45 4e 34 32 33 32 0a | 34 32 33 36 20 41 24 3d |HEN4232.|4236 A$=|
|00005900| 43 48 52 24 28 50 45 45 | 4b 28 37 30 37 29 29 3a |CHR$(PEE|K(707)):|
|00005910| 47 4f 53 55 42 32 34 32 | 30 3a 49 46 4a 39 3d 31 |GOSUB242|0:IFJ9=1|
|00005920| 2e 41 4e 44 5a 3d 2e 54 | 48 45 4e 53 59 53 34 39 |.ANDZ=.T|HENSYS49|
|00005930| 32 33 30 3a 47 4f 54 4f | 34 32 33 32 0a 34 32 33 |230:GOTO|4232.423|
|00005940| 38 20 47 4f 53 55 42 38 | 3a 4b 3d 54 49 3a 4a 39 |8 GOSUB8|:K=TI:J9|
|00005950| 3d 32 3a 49 46 5a 4f 52 | 50 45 45 4b 28 31 30 32 |=2:IFZOR|PEEK(102|
|00005960| 33 29 3d 31 54 48 45 4e | 33 0a 34 32 34 30 20 47 |3)=1THEN|3.4240 G|
|00005970| 4f 54 4f 37 30 32 0a 34 | 35 30 30 20 47 4f 53 55 |OTO702.4|500 GOSU|
|00005980| 42 39 36 3a 43 4c 4f 53 | 45 32 3a 4f 50 45 4e 32 |B96:CLOS|E2:OPEN2|
|00005990| 2c 38 2c 32 2c 22 30 3a | 55 53 45 52 20 4c 4f 47 |,8,2,"0:|USER LOG|
|000059a0| 00 0a 34 35 31 30 20 41 | 24 3d 22 02 20 20 20 d5 |..4510 A|$=". .|
|000059b0| 53 45 52 27 53 20 ce 41 | 4d 45 20 20 20 20 20 20 |SER'S .A|ME |
|000059c0| 20 20 20 20 20 20 cf 4e | 20 20 20 20 cf 46 46 02 | .N| .FF.|
|000059d0| 22 3a 47 4f 53 55 42 32 | 3a 47 4f 53 55 42 31 38 |":GOSUB2|:GOSUB18|
|000059e0| 3a 46 43 3d 32 3a 50 4f | 4b 45 36 38 37 2c 35 30 |:FC=2:PO|KE687,50|
|000059f0| 0a 34 35 32 30 20 47 4f | 53 55 42 39 30 3a 4a 4d |.4520 GO|SUB90:JM|
|00005a00| 3d 2e 3a 46 4f 52 58 3d | 31 54 4f 33 3a 42 24 3d |=.:FORX=|1TO3:B$=|
|00005a10| 4d 49 44 24 28 41 24 2c | 58 2c 31 29 3a 49 46 28 |MID$(A$,|X,1):IF(|
|00005a20| 42 24 3d 22 2d 22 4f 52 | 42 24 3d 22 2a 22 4f 52 |B$="-"OR|B$="*"OR|
|00005a30| 42 24 3d 22 2b 22 29 41 | 4e 44 53 43 3d 2e 54 48 |B$="+")A|NDSC=.TH|
|00005a40| 45 4e 4a 4d 3d 31 3a 58 | 3d 33 0a 34 35 33 30 20 |ENJM=1:X|=3.4530 |
|00005a50| 4e 45 58 54 3a 49 46 46 | 57 54 48 45 4e 46 43 3d |NEXT:IFF|WTHENFC=|
|00005a60| 46 43 2b 31 3a 49 46 46 | 43 3d 46 57 54 48 45 4e |FC+1:IFF|C=FWTHEN|
|00005a70| 47 4f 53 55 42 36 34 0a | 34 35 34 30 20 4f 4e 2d |GOSUB64.|4540 ON-|
|00005a80| 28 4a 4d 3d 2e 41 4e 44 | 49 24 3c 3e 22 ce 22 29 |(JM=.AND|I$<>".")|
|00005a90| 47 4f 53 55 42 32 3a 49 | 46 50 45 45 4b 28 36 39 |GOSUB2:I|FPEEK(69|
|00005aa0| 33 29 3d 2e 41 4e 44 57 | 3d 2e 41 4e 44 49 24 3c |3)=.ANDW|=.ANDI$<|
|00005ab0| 3e 22 ce 22 41 4e 44 5a | 3d 2e 54 48 45 4e 34 35 |>"."ANDZ|=.THEN45|
|00005ac0| 32 30 0a 34 35 35 30 20 | 47 4f 54 4f 31 36 0a 35 |20.4550 |GOTO16.5|
|00005ad0| 30 30 30 20 4b 24 3d 44 | 24 3a 47 4f 53 55 42 32 |000 K$=D|$:GOSUB2|
|00005ae0| 37 39 3a 47 4f 53 55 42 | 32 39 30 3a 41 24 3d 22 |79:GOSUB|290:A$="|
|00005af0| c3 55 52 52 45 4e 54 20 | 54 49 4d 45 20 49 53 20 |.URRENT |TIME IS |
|00005b00| 22 2b 4a 55 24 2b 22 4d | 2c 20 22 2b 4a 4d 24 0a |"+JU$+"M|, "+JM$.|
|00005b10| 35 30 31 30 20 47 4f 53 | 55 42 33 38 3a 41 24 3d |5010 GOS|UB38:A$=|
|00005b20| 41 24 2b 22 20 22 2b 4b | 24 3a 47 4f 53 55 42 39 |A$+" "+K|$:GOSUB9|
|00005b30| 3a 49 46 54 49 3c 45 54 | 48 45 4e 45 3d 45 2d 54 |:IFTI<ET|HENE=E-T|
|00005b40| 0a 35 31 30 30 20 47 4f | 53 55 42 38 30 3a 41 24 |.5100 GO|SUB80:A$|
|00005b50| 3d 43 4e 24 2b 22 20 54 | 49 4d 45 20 49 53 20 22 |=CN$+" T|IME IS "|
|00005b60| 2b 42 24 3a 47 4f 54 4f | 35 0a 36 32 30 30 20 54 |+B$:GOTO|5.6200 T|
|00005b70| 43 3d 35 36 33 32 38 3a | 58 39 3d 50 45 45 4b 28 |C=56328:|X9=PEEK(|
|00005b80| 54 43 2b 33 29 3a 41 25 | 3d 28 58 39 41 4e 44 31 |TC+3):A%|=(X9AND1|
|00005b90| 36 29 2f 31 36 2b 34 38 | 3a 42 25 3d 28 58 39 41 |6)/16+48|:B%=(X9A|
|00005ba0| 4e 44 31 35 29 2b 34 38 | 0a 36 32 30 34 20 49 46 |ND15)+48|.6204 IF|
|00005bb0| 58 39 3d 3e 31 32 38 41 | 4e 44 56 41 4c 28 43 48 |X9=>128A|NDVAL(CH|
|00005bc0| 52 24 28 41 25 29 2b 43 | 48 52 24 28 42 25 29 29 |R$(A%)+C|HR$(B%))|
|00005bd0| 3c 31 32 54 48 45 4e 41 | 25 3d 41 25 2b 31 3a 42 |<12THENA|%=A%+1:B|
|00005be0| 25 3d 42 25 2b 32 0a 36 | 32 30 38 20 49 46 42 25 |%=B%+2.6|208 IFB%|
|00005bf0| 3e 35 37 54 48 45 4e 41 | 25 3d 41 25 2b 31 3a 42 |>57THENA|%=A%+1:B|
|00005c00| 25 3d 42 25 2d 31 30 0a | 36 32 31 32 20 49 46 58 |%=B%-10.|6212 IFX|
|00005c10| 39 3c 31 32 38 41 4e 44 | 41 25 3d 34 39 41 4e 44 |9<128AND|A%=49AND|
|00005c20| 42 25 3d 35 30 54 48 45 | 4e 41 25 3d 34 38 3a 42 |B%=50THE|NA%=48:B|
|00005c30| 25 3d 34 38 0a 36 32 31 | 36 20 58 39 3d 50 45 45 |%=48.621|6 X9=PEE|
|00005c40| 4b 28 54 43 2b 32 29 3a | 43 25 3d 28 58 39 41 4e |K(TC+2):|C%=(X9AN|
|00005c50| 44 32 34 30 29 2f 31 36 | 2b 34 38 3a 44 25 3d 28 |D240)/16|+48:D%=(|
|00005c60| 58 39 41 4e 44 31 35 29 | 2b 34 38 0a 36 32 32 30 |X9AND15)|+48.6220|
|00005c70| 20 58 39 3d 50 45 45 4b | 28 54 43 2b 31 29 3a 45 | X9=PEEK|(TC+1):E|
|00005c80| 25 3d 28 58 39 41 4e 44 | 32 34 30 29 2f 31 36 2b |%=(X9AND|240)/16+|
|00005c90| 34 38 3a 46 25 3d 28 58 | 39 41 4e 44 31 35 29 2b |48:F%=(X|9AND15)+|
|00005ca0| 34 38 0a 36 32 32 34 20 | 58 39 3d 50 45 45 4b 28 |48.6224 |X9=PEEK(|
|00005cb0| 54 43 29 3a 54 49 24 3d | 43 48 52 24 28 41 25 29 |TC):TI$=|CHR$(A%)|
|00005cc0| 2b 43 48 52 24 28 42 25 | 29 2b 43 48 52 24 28 43 |+CHR$(B%|)+CHR$(C|
|00005cd0| 25 29 2b 43 48 52 24 28 | 44 25 29 2b 43 48 52 24 |%)+CHR$(|D%)+CHR$|
|00005ce0| 28 45 25 29 2b 43 48 52 | 24 28 46 25 29 3a 49 46 |(E%)+CHR|$(F%):IF|
|00005cf0| 54 49 2d 45 3e 34 45 36 | 54 48 45 4e 45 3d 45 2b |TI-E>4E6|THENE=E+|
|00005d00| 54 0a 36 32 32 38 20 49 | 46 46 31 3d 31 54 48 45 |T.6228 I|FF1=1THE|
|00005d10| 4e 46 31 3d 2e 3a 52 45 | 54 55 52 4e 0a 36 32 33 |NF1=.:RE|TURN.623|
|00005d20| 32 20 50 4f 3d 2e 3a 4c | 32 3d 54 49 2d 45 3a 49 |2 PO=.:L|2=TI-E:I|
|00005d30| 46 4c 32 3e 54 54 48 45 | 4e 45 3d 45 2b 54 0a 36 |FL2>TTHE|NE=E+T.6|
|00005d40| 32 33 36 20 47 4f 53 55 | 42 34 32 3a 49 46 5a 54 |236 GOSU|B42:IFZT|
|00005d50| 48 45 4e 5a 31 3d 31 3a | 52 45 54 55 52 4e 0a 36 |HENZ1=1:|RETURN.6|
|00005d60| 32 34 30 20 4c 37 3d 49 | 4e 54 28 4c 32 2f 36 30 |240 L7=I|NT(L2/60|
|00005d70| 5e 33 29 3a 4c 38 3d 49 | 4e 54 28 28 4c 32 2d 4c |^3):L8=I|NT((L2-L|
|00005d80| 37 2a 36 30 5e 33 29 2f | 36 30 5e 32 29 3a 4c 39 |7*60^3)/|60^2):L9|
|00005d90| 3d 49 4e 54 28 28 4c 32 | 2d 4c 37 2a 36 30 5e 33 |=INT((L2|-L7*60^3|
|00005da0| 2d 4c 38 2a 36 30 5e 32 | 29 2f 36 30 29 0a 36 32 |-L8*60^2|)/60).62|
|00005db0| 34 38 20 4c 34 3d 4c 37 | 2a 36 30 2b 4c 38 3a 49 |48 L4=L7|*60+L8:I|
|00005dc0| 46 28 4c 34 3e 3d 45 5a | 41 4e 44 53 43 3d 2e 29 |F(L4>=EZ|ANDSC=.)|
|00005dd0| 4f 52 28 4c 34 3e 3d 38 | 41 4e 44 4c 56 29 54 48 |OR(L4>=8|ANDLV)TH|
|00005de0| 45 4e 5a 31 3d 31 3a 52 | 45 54 55 52 4e 0a 36 32 |ENZ1=1:R|ETURN.62|
|00005df0| 35 37 20 49 46 56 41 4c | 28 54 49 24 29 3c 31 45 |57 IFVAL|(TI$)<1E|
|00005e00| 34 41 4e 44 50 45 45 4b | 28 31 30 31 38 29 3c 3e |4ANDPEEK|(1018)<>|
|00005e10| 31 54 48 45 4e 37 30 30 | 30 0a 36 32 35 38 20 49 |1THEN700|0.6258 I|
|00005e20| 46 54 49 24 3e 22 30 31 | 30 30 30 30 22 54 48 45 |FTI$>"01|0000"THE|
|00005e30| 4e 50 4f 4b 45 31 30 31 | 38 2c 2e 0a 36 32 36 30 |NPOKE101|8,..6260|
|00005e40| 20 49 46 28 4c 34 3c 45 | 5a 2d 31 30 41 4e 44 4c | IF(L4<E|Z-10ANDL|
|00005e50| 56 3d 2e 29 4f 52 28 4c | 34 3c 35 41 4e 44 4c 56 |V=.)OR(L|4<5ANDLV|
|00005e60| 29 4f 52 53 43 54 48 45 | 4e 52 45 54 55 52 4e 0a |)ORSCTHE|NRETURN.|
|00005e70| 36 33 30 30 20 41 3d 4c | 37 3a 47 4f 53 55 42 37 |6300 A=L|7:GOSUB7|
|00005e80| 38 3a 42 24 3d 41 24 3a | 41 3d 4c 38 3a 47 4f 53 |8:B$=A$:|A=L8:GOS|
|00005e90| 55 42 37 38 3a 42 24 3d | 42 24 2b 22 3a 22 2b 41 |UB78:B$=|B$+":"+A|
|00005ea0| 24 3a 41 3d 4c 39 3a 47 | 4f 53 55 42 37 38 3a 42 |$:A=L9:G|OSUB78:B|
|00005eb0| 24 3d 42 24 2b 22 3a 22 | 2b 41 24 2b 52 24 0a 36 |$=B$+":"|+A$+R$.6|
|00005ec0| 33 36 30 20 41 24 3d 43 | 4e 24 2b 22 20 d4 49 4d |360 A$=C|N$+" .IM|
|00005ed0| 45 20 3d 20 22 2b 42 24 | 3a 47 4f 54 4f 39 0a 37 |E = "+B$|:GOTO9.7|
|00005ee0| 30 30 30 20 50 4f 4b 45 | 31 30 31 38 2c 31 3a 41 |000 POKE|1018,1:A|
|00005ef0| 3d 56 41 4c 28 44 59 24 | 29 3a 57 57 3d 56 41 4c |=VAL(DY$|):WW=VAL|
|00005f00| 28 5a 24 29 3a 59 52 3d | 56 41 4c 28 59 52 24 29 |(Z$):YR=|VAL(YR$)|
|00005f10| 3a 49 46 41 3d 32 38 41 | 4e 44 57 57 3d 32 54 48 |:IFA=28A|NDWW=2TH|
|00005f20| 45 4e 37 31 35 30 0a 37 | 30 31 30 20 49 46 41 3d |EN7150.7|010 IFA=|
|00005f30| 32 39 41 4e 44 57 57 3d | 32 54 48 45 4e 37 30 39 |29ANDWW=|2THEN709|
|00005f40| 30 0a 37 30 32 30 20 49 | 46 41 3d 33 31 41 4e 44 |0.7020 I|FA=31AND|
|00005f50| 28 57 57 3d 31 4f 52 57 | 57 3d 31 30 4f 52 57 57 |(WW=1ORW|W=10ORWW|
|00005f60| 3d 33 4f 52 57 57 3d 35 | 4f 52 57 57 3d 37 29 54 |=3ORWW=5|ORWW=7)T|
|00005f70| 48 45 4e 37 30 39 30 0a | 37 30 33 30 20 49 46 41 |HEN7090.|7030 IFA|
|00005f80| 3d 33 31 41 4e 44 28 57 | 57 3d 38 4f 52 57 57 3d |=31AND(W|W=8ORWW=|
|00005f90| 31 32 29 54 48 45 4e 37 | 30 39 30 0a 37 30 34 30 |12)THEN7|090.7040|
|00005fa0| 20 49 46 41 3d 33 30 41 | 4e 44 28 57 57 3d 39 4f | IFA=30A|ND(WW=9O|
|00005fb0| 52 57 57 3d 31 31 4f 52 | 57 57 3d 34 4f 52 57 57 |RWW=11OR|WW=4ORWW|
|00005fc0| 3d 36 29 54 48 45 4e 37 | 30 39 30 0a 37 30 37 30 |=6)THEN7|090.7070|
|00005fd0| 20 41 3d 41 2b 31 3a 47 | 4f 53 55 42 37 38 3a 44 | A=A+1:G|OSUB78:D|
|00005fe0| 59 24 3d 41 24 3a 47 4f | 54 4f 37 31 37 30 0a 37 |Y$=A$:GO|TO7170.7|
|00005ff0| 30 39 30 20 44 59 24 3d | 22 30 31 22 3a 41 3d 57 |090 DY$=|"01":A=W|
|00006000| 57 2b 31 3a 49 46 41 3d | 31 33 54 48 45 4e 59 52 |W+1:IFA=|13THENYR|
|00006010| 3d 59 52 2b 31 3a 59 52 | 24 3d 4d 49 44 24 28 53 |=YR+1:YR|$=MID$(S|
|00006020| 54 52 24 28 59 52 29 2c | 32 29 3a 41 3d 31 0a 37 |TR$(YR),|2):A=1.7|
|00006030| 31 34 30 20 47 4f 53 55 | 42 37 38 3a 5a 24 3d 41 |140 GOSU|B78:Z$=A|
|00006040| 24 3a 47 4f 54 4f 37 31 | 37 30 0a 37 31 35 30 20 |$:GOTO71|70.7150 |
|00006050| 44 59 24 3d 22 32 39 22 | 3a 49 46 49 4e 54 28 59 |DY$="29"|:IFINT(Y|
|00006060| 52 2f 34 29 3c 3e 59 52 | 2f 34 54 48 45 4e 44 59 |R/4)<>YR|/4THENDY|
|00006070| 24 3d 22 30 31 22 3a 5a | 24 3d 22 30 33 00 0a 37 |$="01":Z|$="03..7|
|00006080| 31 37 30 20 50 4f 4b 45 | 39 39 39 2c 56 41 4c 28 |170 POKE|999,VAL(|
|00006090| 44 59 24 29 3a 50 4f 4b | 45 31 45 33 2c 56 41 4c |DY$):POK|E1E3,VAL|
|000060a0| 28 5a 24 29 3a 59 33 3d | 49 4e 54 28 59 52 2f 43 |(Z$):Y3=|INT(YR/C|
|000060b0| 29 0a 37 31 38 30 20 50 | 4f 4b 45 31 30 30 31 2c |).7180 P|OKE1001,|
|000060c0| 59 52 2d 28 59 33 2a 43 | 29 3a 50 4f 4b 45 31 30 |YR-(Y3*C|):POKE10|
|000060d0| 30 32 2c 59 33 3a 44 24 | 3d 44 59 24 2b 5a 24 2b |02,Y3:D$|=DY$+Z$+|
|000060e0| 52 49 47 48 54 24 28 59 | 52 24 2c 32 29 0a 37 32 |RIGHT$(Y|R$,2).72|
|000060f0| 30 30 20 4b 24 3d 44 24 | 3a 47 4f 53 55 42 33 38 |00 K$=D$|:GOSUB38|
|00006100| 3a 47 4f 53 55 42 32 35 | 3a 41 24 3d 22 20 22 2b |:GOSUB25|:A$=" "+|
|00006110| 52 24 2b 22 1b 5b 33 33 | 3b 31 4d c4 41 54 45 3a |R$+".[33|;1M.ATE:|
|00006120| 20 1b 5b 33 37 3b 31 4d | 22 2b 4b 24 2b 52 24 2b | .[37;1M|"+K$+R$+|
|00006130| 22 1b 5b 30 4d 20 22 0a | 37 32 30 35 20 50 52 49 |".[0M ".|7205 PRI|
|00006140| 4e 54 23 32 2c 41 24 3a | 43 4c 4f 53 45 32 3a 49 |NT#2,A$:|CLOSE2:I|
|00006150| 4e 50 55 54 23 31 2c 41 | 2c 43 31 24 2c 43 31 2c |NPUT#1,A|,C1$,C1,|
|00006160| 43 31 3a 4f 4e 2d 28 41 | 3e 2e 29 47 4f 53 55 42 |C1:ON-(A|>.)GOSUB|
|00006170| 37 32 33 30 3a 49 46 44 | 52 3d 2d 31 54 48 45 4e |7230:IFD|R=-1THEN|
|00006180| 37 32 32 30 0a 37 32 31 | 30 20 46 24 3d 22 30 3a |7220.721|0 F$="0:|
|00006190| 4c 55 22 3a 47 4f 53 55 | 42 37 32 34 30 3a 46 24 |LU":GOSU|B7240:F$|
|000061a0| 3d 22 30 3a 4c 44 22 3a | 47 4f 53 55 42 37 32 34 |="0:LD":|GOSUB724|
|000061b0| 30 0a 37 32 32 30 20 47 | 4f 53 55 42 31 3a 4f 4e |0.7220 G|OSUB1:ON|
|000061c0| 2d 28 46 31 3d 32 29 47 | 4f 54 4f 37 33 3a 52 45 |-(F1=2)G|OTO73:RE|
|000061d0| 54 55 52 4e 0a 37 32 33 | 30 20 50 52 49 4e 54 23 |TURN.723|0 PRINT#|
|000061e0| 31 2c 22 56 30 22 3a 50 | 52 49 4e 54 23 31 2c 22 |1,"V0":P|RINT#1,"|
|000061f0| 53 22 2b 46 24 3a 4f 50 | 45 4e 32 2c 38 2c 32 2c |S"+F$:OP|EN2,8,2,|
|00006200| 22 30 3a 22 2b 46 24 2b | 22 2c 53 2c 57 22 3a 50 |"0:"+F$+|",S,W":P|
|00006210| 52 49 4e 54 23 32 2c 41 | 24 3a 43 4c 4f 53 45 32 |RINT#2,A|$:CLOSE2|
|00006220| 3a 52 45 54 55 52 4e 0a | 37 32 34 30 20 4f 50 45 |:RETURN.|7240 OPE|
|00006230| 4e 32 2c 38 2c 32 2c 46 | 24 2b 22 2c 53 2c 41 22 |N2,8,2,F|$+",S,A"|
|00006240| 3a 50 52 49 4e 54 23 32 | 2c 41 24 3a 43 4c 4f 53 |:PRINT#2|,A$:CLOS|
|00006250| 45 32 3a 49 4e 50 55 54 | 23 31 2c 41 2c 43 31 24 |E2:INPUT|#1,A,C1$|
|00006260| 2c 43 31 2c 43 31 3a 49 | 46 41 54 48 45 4e 37 32 |,C1,C1:I|FATHEN72|
|00006270| 33 30 0a 37 32 34 35 20 | 52 45 54 55 52 4e 0a 38 |30.7245 |RETURN.8|
|00006280| 37 30 30 20 41 24 3d 22 | c5 4e 54 45 52 20 30 20 |700 A$="|.NTER 0 |
|00006290| 46 4f 52 20 ce 4f 20 3c | cd 4f 52 45 3f 3e 20 50 |FOR .O <|.ORE?> P|
|000062a0| 52 4f 4d 50 54 53 22 3a | 47 4f 53 55 42 39 0a 38 |ROMPTS":|GOSUB9.8|
|000062b0| 37 30 31 20 41 24 3d 22 | 4f 52 20 32 20 54 4f 20 |701 A$="|OR 2 TO |
|000062c0| 36 30 20 54 4f 20 41 4c | 54 45 52 20 49 4e 54 45 |60 TO AL|TER INTE|
|000062d0| 52 56 41 4c 22 2b 52 24 | 2b 52 24 2b 22 d3 45 54 |RVAL"+R$|+R$+".ET|
|000062e0| 20 41 54 3a 22 2b 53 54 | 52 24 28 46 57 29 2b 52 | AT:"+ST|R$(FW)+R|
|000062f0| 24 2b 22 ce 45 57 20 23 | 00 0a 38 37 30 33 20 4f |$+".EW #|..8703 O|
|00006300| 3d 32 3a 47 4f 53 55 42 | 37 3a 49 46 49 24 3d 43 |=2:GOSUB|7:IFI$=C|
|00006310| 24 4f 52 28 56 41 4c 28 | 49 24 29 3c 2e 4f 52 56 |$OR(VAL(|I$)<.ORV|
|00006320| 41 4c 28 49 24 29 3e 36 | 30 29 54 48 45 4e 33 0a |AL(I$)>6|0)THEN3.|
|00006330| 38 37 30 34 20 46 57 3d | 56 41 4c 28 49 24 29 3a |8704 FW=|VAL(I$):|
|00006340| 51 38 3d 46 57 3a 47 4f | 54 4f 33 0a 39 30 30 30 |Q8=FW:GO|TO3.9000|
|00006350| 20 46 24 3d 49 24 0a 39 | 30 30 33 20 55 3d 4c 44 | F$=I$.9|003 U=LD|
|00006360| 3a 4c 50 24 3d 22 4c 2d | 00 0a 39 30 30 35 20 49 |:LP$="L-|..9005 I|
|00006370| 46 4e 35 3e 2e 41 4e 44 | 46 24 3c 3e 22 cd c1 d3 |FN5>.AND|F$<>"...|
|00006380| cb 22 54 48 45 4e 39 38 | 0a 39 30 31 30 20 43 4c |."THEN98|.9010 CL|
|00006390| 4f 53 45 31 3a 4f 50 45 | 4e 31 2c 55 2c 31 35 3a |OSE1:OPE|N1,U,15:|
|000063a0| 4f 50 45 4e 32 2c 55 2c | 32 2c 4c 44 24 2b 4c 50 |OPEN2,U,|2,LD$+LP|
|000063b0| 24 2b 46 24 3a 43 4c 4f | 53 45 32 3a 49 4e 50 55 |$+F$:CLO|SE2:INPU|
|000063c0| 54 23 31 2c 41 2c 43 31 | 24 2c 43 31 2c 43 31 3a |T#1,A,C1|$,C1,C1:|
|000063d0| 43 4c 4f 53 45 31 3a 49 | 46 41 3d 2e 54 48 45 4e |CLOSE1:I|FA=.THEN|
|000063e0| 39 30 32 30 0a 39 30 31 | 33 20 49 46 53 43 41 4e |9020.901|3 IFSCAN|
|000063f0| 44 4c 50 24 3d 22 4c 2d | 22 54 48 45 4e 4c 50 24 |DLP$="L-|"THENLP$|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
